Дан массив А (8). Найти сумму нечетных положительных элементов.

Благодарю заранее

Question

Информатика

Сергуня

16 января, 07:46

Дан массив А (8). Найти сумму нечетных положительных элементов.

Благодарю заранее

+3

Ответы (1)

Знаете ответ на вопрос?

Эмилиан · Answer 1

Programm p1;

var i, s:integer;

arr1:array [1 ... 8] of integer;

begin

for i:=1 to 8 do

begin

writeln ('Введите элемент массива ', i) ;

readln (arr1[i]) ;

end;

s:=0;

for i:=1 to 8 do

begin

if (arr1[i] mod 2 0) and (arr1[i]>0) then s:=s+arr1[i];

end;

writeln ('Сумма нечетных положительных элементов равно: ', s) ;

end.

Дан массив А (8). Найти сумму нечетных положительных элементов.Благодарю заранее

Дан массив А (8). Найти сумму нечетных положительных элементов.

Благодарю заранее