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

Ответы 7

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

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

      ortega7
    • 6 лет назад
    • 0
  • Не надо завидовать программисту, который свою первую программу написал больше 45 лет назад)))
  • Тогда все понятно, вопросов нет ))
  • Но сейчас уже есть школьники, которые пишут примерно в этом же стиле. Надо просто переходить на новую версию Паскаля и учиться думать категориями, более широкими, чем цикл.
    • Автор:

      henrypamc
    • 6 лет назад
    • 0
  • // 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
    • Автор:

      leo68
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      casey376
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years