Третье задание, заранее спасибо

Question

Третье задание, заранее спасибо

---

Answer 1

3)

var a:array[1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write('Vvedite a[',i,'] = ');
readln(a[i]);
min:=a[1];
end;
for i:=1 to 5 do if a[i]for i:=1 to 5 do if i>min then a[i]:=0;
for i:=1 to 5 do write(a[i]);
end.