var a: array [1..10] of integer;
i,s: integer;
begin
s:=0;
for i:=1 to 10 do readln (a[i]);
for i:=1 to 10 do if a[i] mod 2=1 then s:=s+a[i];
writeln (s)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составьте на языке программирования Паскаль программу, которая считает сумму нечетных элементов массива а, состоящего из 10 элементов. Массив заполняется элементами с клавиатуры
var a: array [1..10] of integer;
i,s: integer;
begin
s:=0;
for i:=1 to 10 do readln (a[i]);
for i:=1 to 10 do if a[i] mod 2=1 then s:=s+a[i];
writeln (s)
end.