Задание

Дан массив, состоящий из целых чисел: А = 6 8 9 10 11 7 6 18 20 12 6.

Определите чему будет равен седьмой (по порядку) элемент массива после выполнения фрагмента программы:

m := 1001;

for i := 1 to 10 do

begin

if A[i] < m then

m := A[i];

end;

for i := 1 to 10 do

begin

if A[i] > m then

A[i] := m*m;

end;