program z1;
const n=20;
var m:array [1..n] of integer;
i,Sp,S2p,Sp1,Sp2,ko,k2,k1:integer;
P:real;
begin
P:=1;
ko:=0;
k2:=0;
k1:=0;
for i:=1 to n do
begin
m[i]:=random(21)-10;
if m[i] > 0 then Sp:=Sp+m[i];
if (m[i] > 0) and (m[i] mod 2 = 0) then S2p:=S2p+m[i];
if i <= n div 2 then Sp1:=Sp1+m[i] else Sp2:=Sp2+m[i];
if m[i] <> 0 then P:=P*m[i];
if m[i] < 0 then ko:=ko+1;
if m[i] mod 2 = 0 then k2:=k2+1 else k1:=k1+1;
write(m[i]:5)
end;
writeln;
writeln('Сумма положительных элементов: ',Sp);
writeln('Сумма четных положительных элементов: ',S2p);
writeln('Сумма элементов в 1 половине массива: ',Sp1);
writeln('Сумма элементов во 2 половине массива : ',Sp2);
writeln('Произведение ненулевых элементов: ',P);
writeln('Количество отрицательных элементов: ',ko);
writeln('Количество с четными значениями: ',k2);
writeln('Количество с нечетными значениями: ',k1)
end.
Объяснение:
картинка
![Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [-10; 10]](/tpl/images/1630/1420/1f109.jpg)
А,но это не точно) мы это не проходили)