Question

Нужно решить 3 на формирование массива количество элементов произвольное. 1. составить программу , которая формирует массив (автоматически) из целых значений в интервале [0,20], выводит и подсчитывает среднее значение всех элементов массива. 2.составить программу , которая формирует автоматически массив из целых значений в диапазоне [10,30) и подсчитывает количество элементов значение которых больше 15. 3. составить программу , которая формирует массив из целых чисел и подсчитывает количество отрицательных элементов. организовать ввод элементов с клавиатуры. убедительная кто знает норм сайт с объяснением массива или видео скиньте ссылку . заранее за !

Answer 1

1)
 const     k = 15; 
  var 
     a : array [1..k] of integer; 
     s : real; 
      i : integer; 
begin 
 randomize; 
 s := 0; 
for i := 1 to k do       //Обработка массива чаще всего 
  begin                      //осуществляется в цикле
    a[i] := random(21);         //Формирование
    s := s + a[i];                      //Подсчет суммы элементов
end; 
 s := s / k;                              //Среднее арифметическое (сумма/кол - во)
writeln (s:3:3); 
end.

3)  const     n = 5; 
       var 
           a : array [1..n] of integer; 
            i,k : integer; 
 begin 
k := 0;   
  for i := 1 to n do   
         begin     
  readln (a[i]);             //Считываем элемент
   if a[i] < 0 then          //Если элемент меньше нуля
     k := k +1;                  //счетчик +1
           end;
   writeln (k);
  end.