Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.