Помогите написать программу на Турбо Паскале
одномерный массив. Задание:Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны.
заранее спасибо) |
Цитата:
|
Эх помню себя студентом тоже лень было делать эти задачки)
Program Summa; var a: array [1..50] of Integer; i: Integer; sum: Integer; begin sum:=0; for i := 1 to 50 do begin a[i] := random(100)-50; write(a[i],' '); if (a[i]<0) and (a[i] mod 2<>0) then sum:=sum+a[i]; end; WriteLn(); WriteLn('Сумма* = ', sum); readln(); end. |
Блин, она чёт вместо суммы выдаёт ряд чисел с минусами:tehnari_ru_281::tehnari_ru_325:
|
Цитата:
Сначала на экран выводятся все 50 случайным образом сгенерированных чисел, причем часть из них "с минусами", часть без, а потом, в последней строке, выводится сумма нечетных отрицательных. Ну что Вам еще? И не стыдно? |
Ааааааа, вот я кран!!!! :tehnari_ru_093:Стыдно,стыдно(
Ды я мельком взглянула,думаю чёт не то. Ну спасибище вам! |
Цитата:
|
Часовой пояс GMT +4, время: 00:14. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.