Question

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

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.