JOO KO, в магазин привезли Nящиков апельсинов им ящиков яблок.
Водном ящике апельсинов К кг, а яблок L кг.
Напишите программу, определяющую, сколько всего килограммов фруктов привезли в магазин.
Ввод:
В первой строке даны числа N, М.
Во второй строке K, L.
Вывод:
В единственной строке должно быть написано одно число - общий вес фруктов.
Примеры:
Ввод:
32
5 6
Вывод:
27
Ввод:
1 1
10 20
Вывод:
30

Это степик​

1.
var x, i: integer;
var c : array[1..31] of boolean;
begin
c := 0;
for i:= 1 to 31 do c[i] := false;
for i := 1 to 31 do begin
readln(x); if (x = 0) then c[i] := true;
end;
writeln('В следующие дни не было осадков: ');
for i:= 1 to 31 do if (c[i]) then writeln(c[i]);
readln(i);
end.

2.
var x,i,n,c: integer;
begin
realn(n);
for i:= 1 to n do
begin
readln(x); if (x < 0) then c := c + x;
end;
writeln('ответ: '); write(c);
readln(x);
end.

P.S. На паскале не писал давно. Код не компилировал (ибо его сюда копипастить без последствий нельзя.), так что могут быть незначительные ошибки. + сразу говорю (как программист с некоторым опытом и будучи уже не школьником) - код го*но. Так никто не делает, так никто не пишет, но для "школьного паскаля" достаточно

//C++ - язык програмирования(не Pascal)

#include <iostream> //чтобы выводить на экран

 

 

int main() //тело программы

{

 int a,b; //те числа(объявление переменных)

std::cin>>a; //ввод первого числа

 std::cin>>b; //ввод второго числа

 std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную   часть)

//std::cout<< - вывод

//std::endl - переход на следующию строчку

system("PAUSE"); //чтобы программа сразу не завершалась

 return 0;

}

//               // - коментарий

 

P.S ответь на моё сообщение.