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

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

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


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

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

Ответ
 
Опции темы
Старый 12.05.2015, 21:31   #1
Максим Сергеевич
Новичок
 
Регистрация: 12.05.2015
Сообщений: 1
Репутация: 10
По умолчанию Помогите пожалуйста

Паскаль. Помогите пожалуйста. Тема: Поиск чисел в массиве
Миниатюры
Нажмите на изображение для увеличения
Название: IMG_20150506_130211.jpg
Просмотров: 104
Размер:	103.8 Кб
ID:	74829  

Последний раз редактировалось Максим Сергеевич; 12.05.2015 в 21:38.
Максим Сергеевич вне форума   Ответить с цитированием
Старый 12.05.2015, 23:49   #2
ViktorR
Профессионал
 
Регистрация: 23.10.2010
Сообщений: 1,355
Репутация: 644
По умолчанию

1. Сформируйте массив с двадцатью элементами типа Integer, которые распределены случайно (рандомно) в определенном диапазоне.
2. Запросите целое число, совпадение с которым будете искать в массиве: укажите диапазон, в который должно попадать число.
3. Далее реализуете нарисованный алгоритм. Например,
Код:
...
NamberX := 0;
for i := 1 to 20 do
   if Mas[i] = X then
      NamberX := NamberX +1;
if NamberX = 0 then
...
else
... ;
 ...
и так далее ...


Как-то так, ...
ViktorR на форуме   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помошите найти не жадный DOA 4.0.7, для Delphi 6.0 Lis БД в Delphi 0 06.11.2007 16:09


00:05.


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