Question

Помогите пожалуйста с информатикой.

Answer 1

Разберём что происходит в первом задании:

Нам дан массив данных с 10 значениями и m=0.

Мы проверяем каждый элемент на то, будет он больше 8 или нет. Если да, то прибавляем этот элемент переменной m.

После чего выводим результат. Как мы видим, Dat[2]=9, Dat[3]=10, Dat[7]=9, Dat[10]=9 - те элементы, значения которых больше 8 и которые будут прибавлены к m

Таким образом m=0+9+10+9+9=37

Ответ 37

Задание 2:

var

sum,i:integer;

Mas:array[1..10] of integer;

begin

sum:=0;

for i:=1 to 10 do

begin

readln(Mas[i]);

if Mas[i]>0 then  

sum:=sum+Mas[i];

end;

writeln(sum);

end.