Дан массив А, состоящий из 6 элементов. Поменять
местами максимальный и отрицательный элементы. Вывести новый массив

1
надо все отрицательные поменят на максимальный?
наверно да

Ответы и объяснения

Лучший Ответ!
2013-12-17T18:16:17+00:00
Program chik;
var a:Array [1..6] of integer;
i,max,min:integer;
Begin
Randomize;
For i:=1 to 6 do
begin
a[i]:=random(40)-20;
write(a[i],' ');
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 6 do
begin
if(a[i]>max)then max:=a[i];
if(a[i]<min)then min:=a[i];
end;
for i:=1 to 6 do
begin
if(a[i]=max)then a[i]:=min else begin
if(a[i]<0)then a[i]:=max;
end;
write(a[i],' ');
end;
end.
написать for?
напиши, если несложно)
после a[k]:=a[i];a[i]:=max; напиши for w:=1 to 6 do
begin
write(a[w],' ');
end;
writeln;
в var добав w
ясно, спасииибо!!)