Написать программу по процедурам с массивами в языке программирования Pascal.
Задание:
Дан массив целых чисел. Найти сумму положительных нечетных

1

Ответы и объяснения

2014-02-02T17:42:28+00:00
Var a,b,i:longint;
m:array[1..100000] of longint;
procedure search(a:longint);
var sum,i:longint;
begin
sum:=0;
for i:=1 to a do
if m[i] mod 2 >0 then
inc(sum,m[i]);
writeln(sum);
end;
begin
read(a);
for i:=1 to a do
read(m[i]);
search(a);
end.