Замена минимального элемента в массиве, максимальным.

@SunEclipse · Регистрация: 19.03.2010

Доброго всем времени суток. Подскажите пожалуйста, как сделать программу, по замене первого отрицательного элемента на максимальный элемент этого же массива. У меня получилась программа, которая находит максимальный элемент, но не заменяет им минимальный. Вот исходный код:

Pascal

uses crt;
const n=5;
var a:array[1..n] of integer;
i,max,min:integer;
begin clrscr;
randomize;
writeln('Odnomernyi massiv: ');
for i:=1 to n do begin
a[i]:=random(15)-5;
end;
for i:=1 to n do begin
write(a[i]:3);
end;
max:=1;
min:=0;
for i:=1 to n do
begin
if a[i]>a[max] then max:=i;
if (a[i]<0) and (min=0) then min:=i;
end;
write(a[max]);
readln;
end.

Заранее благодарен.

@sano32 · 04.03.2011, 14:27

Pascal

uses crt;
const n=5;
var a:array[1..n] of integer;
i,max:integer;
begin clrscr;
randomize;
writeln('Odnomernyi massiv: ');
for i:=1 to n do begin
a[i]:=random(15)-5;
end;
for i:=1 to n do begin
write(a[i]:3);
end;
max:=1;
min:=0;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
    begin
         if a[i]<0 then begin a[i]:=max; break;end;
    end;writeln;
for i:=1 to n do write(a[i]:3);
readln;
end.

вот думаю так

@Dekio · 04.03.2011, 18:16

Pascal

const n=5;
var a:array[1..n] of integer;
i,max,min:integer;
begin
randomize;
max:=1;
writeln('Odnomernyi massiv: ');
for i:=1 to n do
begin
a[i]:=random(15)-5;
write(a[i]:3);
if a[i]>a[max] then
max:=i;
end;
for i:=1 to n do
if a[i]<0 then
begin
a[i]:=a[max];
break;
end;
writeln;
for i:=1 to n do
write(a[i]:3);
end.

Опции темы