Задание н 25-26 сентября. Выучить эти задачи. Напоминю, что// это пояснение для вас

1-задача: ввести с клавиатуры числа и вывести их

 var a: array[1..100] of integer;
n: integer;
i: integer;
  begin
   // этой командой указываем сколько элементов взять из 100 эл массива 
writeln('введите числа в массиве');
  readln (n);
  // цикл ввода через клавиатуру
  for  i :=1 to n do
  read (a[i]);
   // цикл вывода
    for  i :=1 to n do
   writeln('a[i]=',a[i]);
 end.

2-задача: ввести через генератор случайных чисел числа и вывести их 
var a: array[1..100] of integer;
n: integer;
i: integer;
  begin
  // этой командой указываем сколько элементов взять из 100 эл массива
  writeln('введите числа в массиве');
  readln (n);
  // цикл ввода через генератор случайных чисел
  for  i :=1 to n do
  a[i]:=random(101);
   // цикл вывода (смотрим какие числа присвоились
    for  i :=1 to n do
   writeln('a[i]=',a[i]);
 end.

2-задача: ввести через генератор случайных чисел числа, каждому присвоить значение 43 и вывести их 

 var a: array[1..100] of integer;
n: integer;
i: integer;
  begin
  // этой командой указываем сколько элементов взять из 100 эл массива
  writeln('введите числа в массиве');
  readln (n);
  // цикл ввода через генератор случайных чисел
  for  i :=1 to n do
  a[i]:=random(101);

   // цикл вывода (смотрим какие числа присвоились
    for  i :=1 to n do
   writeln('a[i]=',a[i]);
   
  // цикл изменения чисел на -43
  for  i :=1 to n do
  a[i]:=43;
   
  // цикл вывода (смотрим какие числа присвоились
    for  i :=1 to n do
   writeln('a[i]=',a[i]);
   
 end.