ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ Найти и вывести ** экран сумму нечётных...

Question

ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА

НАПИСАТЬ ПРОГРАММУ

Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных.

Паскаль

Answer 1

(Высчитывает сумму нечетных элементров массива) 

program chisla;
uses crt;
var a: array [1..10] of integer;    {сколько элементов вмассиве}
i,sum: integer;
begin
clrscr;
sum:=0;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
if a[i] mod 2<>0 then sum:= sum+a[i];
end;
write('sum= ',sum);
readln;
end.