Question

помогите пожалуйста супер срочно

Answer 1

program summa

var n,a,s,i:integer;

begin

read(n);

s:=0;

for i:=1 to n do

begin

read(a);

if (a mod 10 = 3) then

s:=s+a;

end;

Writeln(s);

end.

Answer 2

не получилось

Answer 3

Попробуй if ( a mod 3=0)

Answer 4

Program1.pas(3) : Встречено 'var', а ожидалось ';'

Answer 5

Тогда сразу после summa ;

Answer 6

теперь супер ответственный момент- ввод данных