Question

Заполните массив из 12 элементов заполнить случайными целыми числами из диапазона от 10 до 30 и вывести его на экран. Определить количество чисел,оканчивающихся на 0

Answer 1

var a: array [1..12] of integer;

i,s:integer;

begin

Randomize;

write('Массив: ');

for i:= 1 to 12 do

begin

a[i]:=random(10,30);

write (a[i],' ');

if a[i] mod 10=0 then s:=s+1;

end;

writeln(' ');

write('Количество чисел, оканчивающихся на "0": ',s);

end.