Практическая работа "Алгоритмы обработки одномерных массивов в Паскале"

Алгоритмы обработки одномерных массивов Задача на нахождение суммы,  произведения ЗАДАЧА: Задан массив В(7). Найти сумму  и произведение отрицательных  элементов. Задачи на нахождение количества  элементов ЗАДАЧА: В массиве В(10). найти  количество элементов, значения которых  равны 5 program  n_5 ;   var  i, k: integer;           a: array[1...10] of  integer; begin     for  i:=1 to 10 do  a[i]:=random(100);    for  i:=1 to 10 do  if  a[i] =5  then  k:=k+1; writeln ('Количество элементов, равных 5 k=', k);    end. program  n_4 ;   var  i: integer; s,p: real;          a: array[1...7] of  real; begin     for  i:=1 to 7 do readln (a[i]);    s:=0;    p:=1;    for  i:=1 to 7 do          begin            if  a[i] <0  then              s:=s+a[i];           p:=p*a[i];         end;      writeln ('Сумма S=' , s);    writeln ('Произведение P=' , p); end. Задачи на нахождение максимального (минимального) элемента ЗАДАЧА:   Найти максимальный элемент одномерного массива a(7). program  n_6 ;   var  i, max: integer;            a: array[1...7] of  integer; begin     for i:=1 to 7 do readln (a[i]);    max:= a[1];    for i:=2 to 7 do    if  a[i] < max  then   max:= a[i] ; writeln ('Максимальный элемент массива=', max);    end. Задачи для самостоятельной работы: 1. Рассчитать произведение десяти элементов массива случайных чисел,  генерируемых  на интервале от 5 до 20, значения которых не превышают 10. 2. Посчитать сумму элементов массива, кратных 5 3. Найти минимальный элемент массива.