В одномерном массиве найти максимальные элементы и все элементы равные максимальному заменить на 0.

TR0JlNk

в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные максимальному заменить на 0.
1 ответ

TR0JlNk

  const
    nmax=100;
  var
    a: array[1..nmax] of byte;
    i,max,n: byte;
begin
  max:=0;
  write('vvedite chiso N: '); readln(n);
 
  randomize;
  writeln;
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    a[i]:=random(9)+1;
    write(a[i],' ');
    if a[i]>max then max:=a[i];
  end;
  writeln;
  writeln('maksimalnoe chislo: ',max);
 
  writeln; writeln('poluchennii massiv:');
  for i:=1 to n do
  begin
    if a[i]=max then a[i]:=0;
    write(a[i],' ');
  end;
  readln;
end.