Даны 15 целых чисел. подготовить лист для определения количества чисел, которые оканчиваются цифрой 5.

Program Frank; const n=15; Type mas=array[1..n] of integer; var a:mas;i,k:integer; begin k:=0; for i:=1 to n do begin a[i]:=i; if a[i] mod 10=5 then k:=k+1; end; writeln('Кол-во чисел,которые заканчиваются на 5:= ',k); end. Програма работает,лично проверил) Написана на языке PASCAL