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.

for i:= 1 to 20 do begin

a (i) : = (i + 4) mod 5;

end;

Тут массив забивается числами от 0 до 4

for i:= 1 to 20 do begin

if a[i] > m then

m := a[i];

if a (i) < n then

n := a[i];

end;

Здесь ищем Макс(м) и мин(н) этого массива, они конечно равны 4 и 0 соответственно.

Х=(m - n) mod 5=(4 - 0) mod 5=4

for i:= 1 to 20 do begin

if a[i] = x then

write(i, ' ');

end;

Тут через пробел выводиться номера элементов, чье значение совпадает с х. А это 1 6 11 16

Вот и ответ: 1 6 11 16