Заменить все положительные элементы массива на максимальный элемент массива .Напишите программу в ПАСКАЛЬ.

Я скорее повешусь, чем за 6 баллов стану писать столько строк, когда хватает трёх

Круто пишешь, я еще и не туда код отправил, куда хотел)) Честно, завидую тебе, я так бы не смог написать

Не надо завидовать программисту, который свою первую программу написал больше 45 лет назад)))

Тогда все понятно, вопросов нет ))

Но сейчас уже есть школьники, которые пишут примерно в этом же стиле. Надо просто переходить на новую версию Паскаля и учиться думать категориями, более широкими, чем цикл.

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var mx:=a.Max;  a:=a.Select(x->x>0?mx:x).ToArray; a.Printlnend.Примерn= 138 24 17 -33 -50 34 -41 6 23 38 -19 24 3838 38 38 -33 -50 38 -41 38 38 38 -19 38 38

vari,max:integer;a:array [1..10] of integer;beginfor i:=1 to 10 do beginreadln(a[i]);end;max:=a[1];write('Исходный массив: ');for i:=1 to 10 do beginwrite(a[i]);write(' ');end;for i:=1 to 10 do beginif (a[i] >  max ) thenmax:=a[i];end;for i:=1 to 10 do beginif (a[i] > 0) then a[i]:=max;end;writeln(' ');write('Полученный массив: ');for i:=1 to 10 do beginwrite(a[i]);write(' ');end;end.