1. В одномерном массиве из 10 целых чисел вычислить количество отрицательных элементов в каждой десятке элементов. 2. Определить сумму минимального и максимального элементов массива из 20 действительных чисел. 3. Дан массив из 20 целых чисел. Определить количество четных элементов массива и произведение отрицательных элементов массива.

program zz1;

var i, j, s, k:integer; max, min:real;

mas1:array[1 ... 10] of integer;

mas2:array[1 ... 20] of real;

mas3:array[1 ... 20] of integer;

begin

for i:=1 to 10 do

begin

mas1[i]:=random (101) - 50;

if mas1[i] < 0 then k:=k+1;

end;

writeln;

write (' количество отрицательных элементов = ', k);

max:=0; min:=100000;

for i:=1 to 10 do

begin

s:=random (101) - 50;

mas2[i]:=random () + s;

if mas2[i]>max then max:=mas2[i];

if mas2[i]
end;

writeln;

write (' сумма максимального и минимального элементов = ', max+min);

k:=0; j:=1;

for i:=1 to 20 do

begin

mas3[i]:=random (101) - 50;

if mas3[i] mod 2 = 0 then k:=k+1;

if mas3[i] < 0 then j:=j+mas3[i];

end;

writeln;

write (' количество четных элементов = ', k);

writeln;

write (' произведение отрицательных элементов = ', j);

end.