В заданном одномерном массиве заменить максимальный элемент нулем- Pascal(Паскаль)

Uses
 crt;
var
 a:array[1..100] of integer;
 i,j,n,max,imax:integer;
begin
write('N: ');
readln(n);
max:=a[1];
imax:=1;
randomize;
for i:= 1 to n do
begin
 a[i]:=random(30)-3;
 write(a[i]:3);
  if a[i]>max then
  begin
   max:=a[i];
   imax:=i;
  end;
end;
writeln;
write('MAX[',imax,']:=',max);
writeln;
for i:= 1 to n do
begin
if i=imax then
a[i]:=0;
 write(a[i]:3);
end;
readln
end.

Leave a Comment

+ 33 = 38