Question

Дан ряд из n чисел заданных случайным образом. Найти количество чисел у которых последняя цифра четная. На Paskal пожалуйста

Answer 1

var n,k,i,a: integer;

begin

write('введите n: ');

readln(n);

k:=0;

write('числа, заданные случайным образом: ');

for i:=1 to n do begin

a:=random(100);

write(a,' ');

if (a mod 10) mod 2=0 then k:=k+1;

end;

writeln;

write('у ',k,' чисел последняя цифра четная');

end.