Program C4;
const
N = 35;
var
a: array[1..N] of integer;
i,s:integer;
begin
for i := 1 to N do begin
readln( a[i] );
end;
if (a[i] < 0 ) and ( abs(a[i]) mod 2 = 1 ) then
s:= s+1;
writeln(s);
end.
Объяснение: Только я хз, что значит “случайных чисел”, если это значит, что нужно использовать рандом, то программа выше не подойдет, но, если это значит, что числа вводятся рандомные, то должно подойти. Попробуй сам запустить программу в паскале
Program C4;
const
N = 35;
var
a: array[1..N] of integer;
i,s:integer;
begin
for i := 1 to N do begin
readln( a[i] );
end;
for i := 1 to N do begin
if (a[i] < 0 ) and ( abs(a[i]) mod 2 = 1 ) then
s:= s+1;
end;
writeln(s);
end.
Объяснение: Только я хз, что значит “случайных чисел”, если это значит, что нужно использовать рандом, то программа выше не подойдет, но, если это значит, что числа вводятся рандомные, то должно подойти. Попробуй сам запустить программу в паскале