пользователь вводит пять натуральных чисел, и программа подсчитывает, сколько из них оканчивается на 8​

Ответ:

var

a:array[1..1000] of integer;

i,q,n:integer;

begin

q:=0;

writeln('Кол-во чисел');

readln(n);

for i:=1 to n do

begin

writeln('Введите число №',i);

readln(a[i]);

if a[i] mod 10 = 8 then

if a[i]>q then

q:=a[i];

end;

writeln(q);

end.

Объяснение:

еСлИ поЙмЁш..................