Question

Какое значение будет выведено на экран в результате выполнения программы?
const n=6;
var i,k,a: integer;
f:array[1..n] of integer;
begin
for i:=1 to n do f[i]:=n-i+1;
a:=f[f[2]-f[4]];
k:=0;
for i:=1 to n do
if f[i]>a then k:=k+1;
label1.caption:=inttostr(k);
end;

Answer 1

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

Объяснение: