Программированние циклических алгоритмов

[Дима82]

Лабораторная работа №3:"Программированние циклических алгоритмов"
Задача:С клавиатуры вводятся 10 целых чисел. Определить сумму нечётных отрицательных чисел. Использовать цикл с параметром.

[yourself]

Вот тебе решение на паскале:

program cycle;
uses crt;
var a:array [0..9] of integer; i:byte; res:integer;
begin
clrscr;
res:=0;
for i:=0 to 9 do
begin
writeln('Enter ',i+1,' number');
readln(a[i]);
end;
for i:=0 to 9 do
begin
if (a[i]<0) and (a[i] mod 2 <>0) then
res:=res+a[i];
end;
writeln('Result is ',res);
readkey;
end.

[Дима82]

Что-то не получается...(не выводит сумму)...

[yourself]

В консоли строчка "Result is ..." это и есть сумма

[Дима82]

Да, я знаю, какие бы чисссла не набирал оно всё равно выводит "0".

[AlDelta]

Дима82, форум не авторешалка для ленивых (кроме раздела Фриланс). А работать за тебя тоже будет кто-то другой, когда закончишь свое учебное заведение?

Тебе уже советовали взять книгу, но это или слишком просто, или слишком сложно, раз ты не хочешь этого делать решая элементарные задания...

Седующие вопросы где не будет своих наработок, а только текст задания будут удаляться.

[Дима82]

Сообщение от yourself

Вот тебе решение на паскале:

program cycle;
uses crt;
var a:array [0..9] of integer; i:byte; res:integer;
begin
clrscr;
res:=0;
for i:=0 to 9 do
begin
writeln('Enter ',i+1,' number');
readln(a[i]);
end;
for i:=0 to 9 do
begin
if (a[i]<0) and (a[i] mod 2 <>0) then
res:=res+a[i];
end;
writeln('Result is ',res);
readkey;
end.

Я не пойму почему результат "0" показывает?

[B_N]

Дима82, Вы данные вводите в соответствии условием своей задачи?

Определить сумму нечётных отрицательных чисел. Использовать цикл с параметром.

Программа работает нормально.

[Дима82]

А-а-а, точно, СПАСИБО!