• ЛЕГКО НО МЕНЯ НЕ БЫЛО НА УРОКЕ ПОМОГИТЕ Написать программу: С клавиатуры вводиться число N. Заполнить массив N случайными числами. В массиве может находиться не более 100 элементов. Упорядочить массив по возрастанию и сформировать новый массив, каждый элемент которого равен исходному плюс полученному элементу.

Ответы 3

  • Это точно правильно?
  • Программа-то работает правильно, вопрос в другом, правильно ли вы смогли объяснить, что именно она должна делать.
    • Автор:

      rocío
    • 6 лет назад
    • 0
  • program massiv;var M: array [1..100] of integer;M2: array [1..100] of integer;a,n,i,i2 : integer;beginread (n);for i:= 1 to n do beginreadln (a);M[i]:=a;M2[i]:=a;end;for i:= 1 to n do beginfor i2:= i+1 to n do beginif (M[i]< M[i2]) then begina:=M[i2];M[i2]:=M[i];M[i]:=a;end;end;end;for i:=1 to n do beginM[i]:= M[i]+M2[i];  writeln(M[i]);end;end.
    • Автор:

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

Войти через Google

или

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

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

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