Найти сумму нечетных элементов массива - Pascal ABC (17559)
Формулировка задачи:
Дан одномерный целочисленный массив A, состоящий из N элементов. Найти сумму нечетных элементов массива.
Нужна блок-схема и программа.
Решение задачи: «Найти сумму нечетных элементов массива»
textual
Листинг программы
uses crt;
const n=8;
var a:array[1..n] of integer;
i,s:integer;
BEGIN
clrscr;
for i:=1 to n do
a[i]:=random(10);
for i:=1 to n do
write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
s:=s+a[i];
write('Symma = ',s);
readkey;
END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д