В операторах Dat[1] := 7; ... ; <span>Dat[10] := 9; задаются элементы массива.
</span><span>m := 0; n := 0; - начальные значения переменных m и n.
В цикле </span>for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (<span>Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива).
Ответ: 8</span>
Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>
Вё прочитала, интеремно я могу сказать. с: