• 29 November 2014
    • Беларуская мова
    • Автор: test03

    Составить программу, которая организует ввод массива a [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их
    модулями.

    • 29 November 2014
    • Ответ оставил: selmash21

    Var A:Array[1..10] of Integer;
    i:Integer;
    Begin
     for i:=1 to 10 do
      Read(A[i]);
     for i:=1 to 10 do
      if (A[i]<0) then A[i]:=ABS(A[i]);
     for i:=1 to 10 do
      Write(A[i],' ');
     end.

    Оцени ответ
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы