igroman95
Готово.program pr;var a:array of integer;i,min,max,n:integer;beginwrite('Размер массива: ');readln(n);setlength(a,n);writeln();writeln('Заполняем массив...');for i:=1 to n do beginwrite(i,' элемент: ');readln(a[i]);if i=1 then beginmin:=i;max:=i;end;if a[i]>a[max] then max:=i;if a[i]
0 votes Thanks 1
igroman95
if a[i] end; a[max]:=0; a[min]:=0; for i:=1 to n do write(a[i]:4); end.
Answers & Comments
a[max]:=0;
a[min]:=0;
for i:=1 to n do write(a[i]:4);
end.