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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 02.06.2012, 08:27   #1
Инокентий09
Новичок
 
Регистрация: 02.06.2012
Сообщений: 1
Репутация: 10
Восклицание 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,815
Репутация: 6850
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в Turbo Pascal Cooltik Паскаль 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


10:24.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.