Сформировать целочисленный массив 20 элементов.

1) Подсчитать количество положительных элементов.

2) Подсчитать сумму нечетных элементов.

Question

Информатика

Еленя

30 января, 06:42

Сформировать целочисленный массив 20 элементов.

1) Подсчитать количество положительных элементов.

2) Подсчитать сумму нечетных элементов.

+4

Ответы (1)

Знаете ответ?

Никитична · Answer 1

Var

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

b, c, i:integer; / / b положительные c сумма нечетных i для цикла

begin

b:=0;

c:=0;

for i:=1 to 20 do begin

readln (a[i]) ;

if a[i]>0 then b:=b+1;

if a[i] mod 20 then c:=c+a[i];

end;

writeln (b) ;

writeln (c) ;

end.

Сформировать целочисленный массив 20 элементов.1) Подсчитать количество положительных элементов.2) Подсчитать сумму нечетных элементов.

Сформировать целочисленный массив 20 элементов.

1) Подсчитать количество положительных элементов.

2) Подсчитать сумму нечетных элементов.