Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var mx:=a.Max;
  a:=a.Select(x->x>0?mx:x).ToArray; a.Println
end.

Пример
n= 13
8 24 17 -33 -50 34 -41 6 23 38 -19 24 38
38 38 38 -33 -50 38 -41 38 38 38 -19 38 38

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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