Question

Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [-10; 10] и находит:
a. Сумму положительных элементов массива; (1 балл)
b. Сумму четных положительных элементов массива; (2 балла)
c. Суммы элементов в первой и во второй половинах массива (отдельно); (2 балла)
d. Произведение ненулевых элементов; (1 балл)
e. Количество отрицательных элементов массива; (1 балл)
f. Количество с четными и нечетными значениями (отдельно). (2 балла)
Вывод оформить в следующем виде: (1 балл)

Answer 1

Ответ:

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.

Объяснение:

картинка