Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2012, 05:05   #1
badname47
Пользователь
 
Регистрация: 03.12.2011
Сообщений: 19
По умолчанию Pascal. Найти сумму отрицательных и сумму положительных элементов линейного массива.

Нужно написать программу:
Найти сумму отрицательных и сумму положительных элементов линейного массива.
badname47 вне форума Ответить с цитированием
Старый 07.02.2012, 06:29   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

ну а в чем проблема делайте массив и две переменных
запускайте цикл пробегающий по массиву во время цикла проверяйте какое!
Код:
var
m:array [1..20] of integer;
i,p,o:integer;
begin
////заполняете маасив

for i:=1 to 20 do
if m[i]>0 then
p:=p+m[i] else o:=o+m[i];
showmessage('Сумма:'+'Положительных: '+inttostr(p)+#13#10+'Отрицателных:'+inttostr(o));
end;
Кольша вне форума Ответить с цитированием