Размещено 6 лет назад по предмету
Информатика
от lolkek47
Задание 2. Что будет выведено на экран в результате
var
a : array (1..20) of integer;
i, m, n, x: integer;
begin
for i:= 1 to 20 do begin
a (i) : = (i + 4) mod 5;
end;
m := a (1);
n := a (1);
for i:= 1 to 20 do begin
if a[i] > m then
m := a[i];
if a (i) < n then
n := a[i];
end;
x := (m - n) mod 5;
for i:= 1 to 20 do begin
if a[i] = x then
write(i, ' ');
end;
end.