Составить программы

Привет! Давай вместе разберемся с этими задачами. На фотографии перед нами две задачи по программированию на языке Pascal.

Задача 4: Необходимо написать программу для массива из 6 элементов, которые заполнены только целочисленными значениями. Программа должна запрашивать значения элементов массива и затем выводить эти значения на экран.

Пример кода для решения этой задачи:

program ArrayExample;
var
  B: array[1..6] of Integer;
  i: Integer;
begin
  // Заполняем массив
  for i := 1 to 6 do
  begin
    Write('Введите элемент массива под номером ', i, ': ');
    Readln(B[i]);
  end;
  
  // Выводим элементы массива
  for i := 1 to 6 do
  begin
    Write(B[i], ' ');
  end;
  Readln;
end.

Задача 5: Здесь нужно создать массив из 5 элементов и заполнить его случайными числами с помощью функции Randomize и Random. Требуется вывести значения на экран и посчитать сумму элементов массива.

Пример кода для решения этой задачи:

program RandomArrayExample;
var
  C: array[1..5] of Integer;
  i, sum: Integer;
begin
  Randomize;  // Инициализируем генератор случайных чисел
  sum := 0;
  
  // Заполняем массив и считаем сумму
  for i := 1 to 5 do
  begin
    C[i] := Random(100);  // Допустим, случайные числа от 0 до 99
    sum := sum + C[i];
    Write(C[i], ' ');
  end;
  
  // Выводим сумму элементов массива
  Writeln;