Составить программу которая формирует массив из 26 случайных чисел от 0 до 30 и подсчитывает количество чисел кратных 5

1

Ответы и объяснения

2012-12-20T15:42:32+00:00

var a:array [1..26] of integer;
i:integer;
begin
for i:=1 to 26 do
read (a[i]);
if (a[i]>0) and (a[i]<30) then
for i:=1 to 26 do
begin
if a[i] mod 5 = 0 then
writeln (a[i]);
end;
end.

тока посмори правильн а то не могу проверить вроде да