Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.