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

Это точно правильно?

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

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.