Задание 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