Дан массив А(8).Найти сумму нечетных положительных элементов. Благодарю заранее
Дан массив А(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.
Не нашли ответ?
Похожие вопросы