Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В заданному масиві замінити найбільший елемент нулем

Ответ оставил Гость

Var
  a: array[1..50] of integer;
  max, maxi: integer;
begin
  Randomize;
  for var i := 1 to 50 do a[i] := Random(1, 1000);
  writeln(a);
  max := a[1];
  maxi := 1;
  for var i := 1 to 50 do
     if a[i] > max then begin
      max := a[i];
      maxi := i;
    end;
  a[maxi] := 0;
  writeln(Максимальный был на , maxi, месте и равнялся , max);
  writeln(a);
end.