Question

Помогите составить программы в Паскале пожалуйста :

1. Сформировать одномерный массив из 9 вещественных чисел вводом с клавиатуры и выведите его на экран в обратном порядке.

2. Сформируйте одномерный массив из 20 целых чисел больших –10, но меньших 20 случайным образом и замените все его отрицательные элементы на
противоположные по знаку.

Answer 1

1.
Var m : array[1..9] of Real;
  i : Integer;
Begin
  For i:=1 to 9 do Readln(m[i]);
  For i:=9 downto 1 do Write(m[i],' ');
  Writeln;
end.

2.
Var m : array[1..20] of Integer;
  i : Integer;
Begin
  Randomize;
  For i:=1 to 20 do
  Begin
   m[i]:=-9+Random(29);
   If m[i]<0 then m[i]:=-m[i];
  end;
  For i:=1 to 20 do Write(m[i],' ');
  Writeln;
end.