Полное Решение пожалуйста!! Задан массив из 7 целых чисел. Заменить все положительные...

Question

Полное Решение пожалуйста!!
Задан массив из 7 целых чисел. Заменить все положительные элементы данного массива на его максимальный элемент?

Answer 1

Const n = 7;
var a:array[1..n]of integer;
  max,i:integer;
begin
  //Заполнение массива значениями в диапазоне
  //от -100 до 100
  //и одновременно находим максимальный элемент
  max:=-100;
  for i:=1 to n do begin
    a[i]:=random(201)-100;
    if a[i]> max then max:=a[i];
    write(a[i]:3);
  end;
  writeln;
  //В цикле находим положительные и
  //меняем их на максимальный элемент
  for i:=1 to n do begin
    if a[i]>0 then a[i]:=max;
    write(a[i]:3);
  end;
  writeln;
 end.