Я никогда не подружусь с этой темой ...

1. С клавиатуры вводится 7 целых чисел. Найти сумму всех нечетных среди них.

2. С клавиатуры вводится 7 целых чисел. Найти произведение чисел кратных 7.

(Информатика. Тема: Pascal ABC. 8 класс)

1)

Program z2;

var a:array[1 ... 7] of integer;

i, s: integer;

Begin

s:=0;

for i:=1 to 7 do begin read (a[i]);

end;

for i:=1 to 7 do begin if a[i] mod 3 = 0 then begin s:=s+a[i]

end;

end;

writeln;

write ('Сумма всех нечётных элементов: ', s);

end.