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

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

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

Question

Информатика

Лазарь

12 марта, 13:58

Сформировать целочисленный массив 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) Подсчитать сумму нечетных элементов.