4 или 8

program two;
const Sz = 50; //Максимальный размер массива
var a: array[1..Sz] of integer;
var h: array[1..Sz] of integer;
var i,n,x:integer;
begin
{2. Дано n чисел. Вычислить количество четных чисел, заканчивающихся цифрой 4 или 8.}

i:=0;
x:=0;
write('Введите количество чисел: ');
read(n);// Размер массива
for i:=1 to n do
begin
a[i]:=Random(100);
end;

for i:=1 to n do
begin
write(a[i], ' ')
end;
writeln;
{write('Числа заканчивающиеся на 4: ');
for i:=1 to n do
begin
if a[i] mod 10 =4 then
write(a[i], ' ');
h[i]:=a[i];
end;}

writeln;
write('Числа заканчивающиеся на 8: ');
for i:=1 to n do
begin
if a[i] mod 10 =8 then
h[i]:=a[i];
end;
writeln;

for i:=1 to n do
begin
write(h[i], ' ')
end;

writeln;
for i:=1 to n do
begin
if h[i] mod 2=0 then
x:=x+1;
end;
writeln('Количество четных чисел заканчивающиеся на 8: ',x);

end.