Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Ответ
 
Опции темы
Старый 02.06.2012, 08:27   #1
Инокентий09
Новичок
Джуниор
 
Регистрация: 02.06.2012
Сообщений: 1
Восклицание Turbo Pascal задача

Найти сумму и количество отрицательных элементов целочисленного массива из 10 элементов
Код:
program primer; 
cоnst n=10; 
var a: array[1..n] of integer; 
i,s,num: integer; 
begin 
writeln('введите',n,'элементов массива'); 
for i:= 1 to n do read (a) 
s:=0; 
num:=0; 
for i:=1 to n do begin 
s:=s+a; 
if a <0 
then inc (num) 
end; 
writeln('сумма элементов массива',s); 
writeln('количество элементов массива',num); 
end.
на подобие этой задаче надо составить другую в которой нужно найти сумму отрицательных элементов массива и количество положительных элементов массива.

Последний раз редактировалось Stilet; 02.06.2012 в 11:34.
Инокентий09 вне форума Ответить с цитированием
Старый 02.06.2012, 11:36   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Ну. Поменяй < на > и беги сдаваться.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в Turbo Pascal Cooltik Паскаль, Turbo Pascal, PascalABC.NET 10 28.04.2012 19:24
Задача на if на turbo pascal 7.0 Cruzel Помощь студентам 1 05.11.2011 19:49
Задача на Turbo Pascal spezzA Фриланс 3 06.04.2011 23:13
Turbo Pascal (задача) pergeot Помощь студентам 4 13.01.2010 08:25


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS