Очень срочно надо.Паскаль. Помогите пожалуйста. Хотя бы только первую

Question

Очень срочно надо.Паскаль. Помогите пожалуйста. Хотя бы только первую

---

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ReadArrInteger('Введите 20 целых чисел:',20);
  a.PrintLines
end.

Пример
Введите 20 целых чисел: 1 2 3 4 5 6 7 8 9 0 9 8 7 6 5 4 3 2 1 77
1
2
3
4
5
6
7
8
9
0
9
8
7
6
5
4
3
2
1
77

№2

begin
  var a:=ArrRandom(9,0,49);
  for var i:=0 to 7 do
    Write('a[',i+1,']=',a[i],', ');
  Writeln('a[9]=',a[8])
end.

Пример
a[1]=49, a[2]=48, a[3]=6, a[4]=18, a[5]=41, a[6]=39, a[7]=3, a[8]=10, a[9]=39

Answer 2

1.
const n=20;
var m: array[1..n] of integer; 
  i: integer;
begin
writeln('Введите элементы массива:');
for i:=1 to n do begin
 write('m[',i,']=');
 readln(m[i]);
 end;
writeln;
writeln('Введенный массив:');
for i:=1 to n do writeln(m[i]);
end.

Пример (для n=10):
Введите элементы массива:
m[1]= 13
m[2]=  1
m[3]= 27
m[4]= 12
m[5]=  0
m[6]=  8
m[7]= 38
m[8]= 15
m[9]= 30
m[10]= 31
Введенный массив:
13
1
27
12
0
8
38
15
30
31

2.
const n=9;
var a: array[1..n] of integer; 
  i: integer;
begin
Randomize;
writeln('Полученный массив:');
for i:=1 to n do begin
 a[i]:=random(50);
 write('a[',i,']=',a[i]);
 if i end;
writeln;
end.

Пример:
a[1]=15, a[2]=23, a[3]=32, a[4]=19, a[5]=36, a[6]=48, a[7]=42, a[8]=32, a[9]=21