Помогите написать программу на Турбо Паскале

[Umbrella]

Помогите написать программу на Турбо Паскале

одномерный массив. Задание:Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны.
заранее спасибо)

 

[Vladimir_S]

одномерный массив. Задание:Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны.
заранее спасибо)

Консультации по таким ясельным задачкам - только при условии, что Вы выложите свои варианты, попытки и пр. На чем же еще учиться, как не на подобной ерунде?

 

[KiD2]

Эх помню себя студентом тоже лень было делать эти задачки)

Program Summa;
var
a: array [1..50] of Integer;
i: Integer;
sum: Integer;
begin

sum:=0;

for i := 1 to 50 do

begin
a := random(100)-50;
write(a,' ');
if (a<0) and (a mod 2<>0) then
sum:=sum+a;
end;

WriteLn();
WriteLn('Сумма* = ', sum);
readln();

end.

 

[Umbrella]

Блин, она чёт вместо суммы выдаёт ряд чисел с минусами:tehnari_ru_281::tehnari_ru_325:

 

[Vladimir_S]

Блин, она чёт вместо суммы выдаёт ряд чисел с минусами:tehnari_ru_281::tehnari_ru_325:

Господин Зонтик, Вы уже начинаете несколько доставать. Ну ладно, сжалился над Вами человек, написал программу решения этой идиотской задачки, написал при том абсолютно правильно и грамотно, так Вы даже разобраться и толком запустить не можете! Разжевать надо и в рот положить? Хорошо.
Сначала на экран выводятся все 50 случайным образом сгенерированных чисел, причем часть из них "с минусами", часть без, а потом, в последней строке, выводится сумма нечетных отрицательных.
Ну что Вам еще? И не стыдно?

 

[Umbrella]

Ааааааа, вот я кран!!!! :tehnari_ru_093:Стыдно,стыдно(
Ды я мельком взглянула,думаю чёт не то.
Ну спасибище вам!

 

[Vladimir_S]

Ааааааа, вот я кран!!!! :tehnari_ru_093:Стыдно,стыдно(
Ды я мельком взглянула,думаю чёт не то.
Ну спасибище вам!

А, так Вы, оказывается, не господин, а госпожа Зонтик! В таком случае - прошу извинить за резкий тон, с дамами я обычно такого себе не позволяю.