Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вывести числа кратные 4 на отрезке от а до б. Паскаль

Ответ оставил Гость

const
N = 10;
var
c: array[1..N] of integer;
a, b, i: integer;
begin
writeln(Введите отрезок: ); readln(a, b);
for i := 1 to N do begin
c[i] := random(30);
write(c[i], );
end;
writeln;writeln;
for i := a to b do begin
if(c[i] mod 4 = 0) then write(c[i], );
end;
end.