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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2012, 12:09   #1
Richik123
Пользователь
 
Регистрация: 09.04.2012
Сообщений: 92
По умолчанию Заданы массивыА(5),В(4),С(7).определить, в каком массиве больше чисел,попадающих в интервал от -1 до 1.подсчёт количества чисел по

Заданы массивыА(5),В(4),С(7).определить, в каком массиве больше чисел,попадающих в интервал от -1 до 1.подсчёт количества чисел попадающих в интервал от -1 до 1 оформить в виде подпрограммы.Заполнение Массивов и вывод на печать оформить в виде подпрограмм
Richik123 вне форума Ответить с цитированием
Старый 19.06.2012, 12:28   #2
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию

Почти тоже самое в плане начала как в программе которую я тебе сделал в первой твоей теме, но, с одним отличием.

Код:
for i:=1 to 5 do begin
     if a[i] in [-1..1] then inc(count1);
end;
или

Код:
for i:=1 to 5 do begin
     if (a[i] > -1) and (a[i] < 1) then inc(count1);
end;

Вроде так, дерзай.
Люблю на ты.Я человек простой
Leshii вне форума Ответить с цитированием
Старый 19.06.2012, 12:30   #3
Richik123
Пользователь
 
Регистрация: 09.04.2012
Сообщений: 92
По умолчанию

Цитата:
Сообщение от Leshii Посмотреть сообщение
Почти тоже самое в плане начала как в программе которую я тебе сделал в первой твоей теме, но, с одним отличием.

Код:
for i:=1 to 5 do begin
     if a[i] in [-1..1] then inc(count1);
end;
или

Код:
for i:=1 to 5 do begin
     if (a[i] > -1) and (a[i] < 1) then inc(count1);
end;

Вроде так, дерзай.
окей, спасибо
Richik123 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел. Richik123 Паскаль, Turbo Pascal, PascalABC.NET 1 19.06.2012 12:24
Количество чисел не попадающих в заданый интервал Leshii Общие вопросы C/C++ 2 22.04.2012 14:08
Вывод количества элементов, попадающих в заданный интервал Dark Raven Помощь студентам 1 21.03.2012 08:41
Определить сумму тех веществееных чисел,которые больше Р. [Паскаль] Анна22 Помощь студентам 1 07.12.2010 20:34
Ввести несколько чисел (кол-во чисел запрашивать с экрана). Определить, сколько чисел, меньших заданного Lirika Помощь студентам 0 08.05.2010 21:39