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

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

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2013, 20:48   #1
koshakk
Новичок
Джуниор
 
Регистрация: 17.12.2013
Сообщений: 1
По умолчанию Дан массив из n целых чисел. Нужно написать программу определяющую каких элементов больше положительных или отрицательных

Дан массив из n целых чисел. Нужно написать программу определяющую каких элементов больше положительных или отрицательных. В паскале я ноль(
koshakk вне форума Ответить с цитированием
Старый 17.12.2013, 20:55   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
Ko:=0;
Kp:=0;
For i:=1 to n do
 Begin
  If a[i]>0 then kp:=kp+1;
  If a[i]<0 then ko:=ko+1;
 End;
If kp>ko then 
  write ('отриц меньше')
Else 
  if kp=ko then 
    write('равно')
  Else 
    write('отриц больше');
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательны grooveone Паскаль, Turbo Pascal, PascalABC.NET 5 17.12.2013 10:07
СИ: Задан массив, состоящий из целых положительных и отрицательных чисел. Создать новый массив из положительных элементов старого Любимая Помощь студентам 0 28.05.2013 18:44
Дан массив целых чисел из n элементов MISTER_88 Помощь студентам 4 28.03.2012 17:26
Дан неубывающий массив положительных и отрицательных целых чисел a[1]<=a[2]<=...<=a[n]. Машка-Ромашка Помощь студентам 0 23.12.2010 04:15
Дан неубывающий массив положительных и отрицательных целых чисел a[1]<=a[2]<=...<=a[n]. Машка-Ромашка Общие вопросы .NET 0 22.12.2010 04:24