На языке программирования Паскаль напишите программу, которая:

1) В последовательности чисел находит количество чисел, кратных 3.
2) В последовательности чисел находит максимальное четное число, оканчивающееся на 4.

Вопрос школьника по предмету Информатика

На языке программирования Паскаль напишите программу, которая:

1) В последовательности чисел находит количество чисел, кратных 3.
2) В последовательности чисел находит максимальное четное число, оканчивающееся на 4.

Ответ учителя по предмету Информатика

1)

program kr3sum;

var i,s.h:integer;

begin 

read(k) //кол чисел 

for i:=1 to k do begin 

read(h) //число для действий 

if h mod 3 = 0 then begin s:=s+1;

end;

writeln(s);

end.

2)

program jeje; 

var k,i,m,s,h:integer;

begin m:=0;

read(k);//кол-во чисел

for i:=1 to k do begin

readln(h);

if h mod 10 = 4 then begin s:=h;

            if s > m then m:=s                       

   end;

end;

write(m);

end.