Тема вопроса: нет. Определить, что выполняе

Сложность вопроса: 1 (из 10)

<question>247

Определить, что выполняет данная программа:

program gh;

var a:array [1..10] of real;

i,p:integer; m:real;

begin

for i:=1 to 10 do

read (a[i]);

m:=a[1];

for i:=1 to 10 do

if a[i]>m then begin m:=a[i]; p:=i; end;

for i:=p+1 to 10 do a[i]:=0,5;

for i:=1 to 10 do

writeln (a[i]); end.

находит максимальный элемент и элементы, стоящие за максимальным заменяет на 0.5

находит максимальный элемент и заменяет его на 0,5

все элементы массива заменяет на 0,5

находит индекс максимального элемента.