Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 15.10.2015
Сообщений: 24
1

Находится ли введенное с клавиатуры число в массиве

31.10.2015, 10:38. Показов 1238. Ответов 1
Метки нет (Все метки)

Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве. Массив должен быть заполнен случайными числами из диапазона [-50;50]. Организовать вывод массива на экран.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2015, 10:38
Ответы с готовыми решениями:

В одномерном массиве целых чисел найти отрицательные элементы и заменить их на число, введенное с клавиатуры
В одномерном массиве целых чисел найти отрицательные элементы и заменить их на число, введенное с...

делится ли на три целое число, введенное с клавиатуры
Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры. Ниже...

Преобразовать введенное с клавиатуры десятичное число в двоичное
Помогите пожалуйста!!! Преобразовать введенное с клавиатуры десятичное число в двоичное.Нужно...

Определить наибольшее введенное с клавиатуры число и его номер
Одномерные массивы: Задача1. Натуральные числа вводятся в произвольном порядке с клавиатуры....

1
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
31.10.2015, 19:45 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
const
    answer: Array[Boolean] Of String[4] = ('No!', 'Yes!');
var
    ar: Array Of ShortInt;
    i, n: Word;
    x: Integer;
    state: Boolean;
begin
    Randomize();
    repeat
        Write('Input array length: ');
        ReadLn(n);
    until (n > 0);
    SetLength(ar, n);
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(101) - 50;
        Write(ar[i]:4);
    end;
    WriteLn;
    Write('Input number to check: '); ReadLn(x);
    i := 0; state := False;
    while ((i < n) And (Not state)) do
    begin
        state := (x = ar[i]);
        Inc(i);
    end;
    Write(answer[state]);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2015, 19:45

Является ли число введенное с клавиатуры гиперпростым. Помогите исправить программу
Является ли число введенное с клавиатуры гиперпростым. Помогите исправить программу.

составить программу которая введенное с клавиатуры целое число делить на 2
составить программу которая введенное с клавиатуры целое число делить на 2, если оно четное, и...

Определить, является ли целое число, введенное пользователем с клавиатуры простым (цикл repeat)
Напишите программу, которая определяет является ли целое число введенное пользователем с клавиатуры...

Написать программу, которая проверяет, делится ли на пять целое число, введенное с клавиатуры
(данные, введенные пользователем, выделены полужирным шрифтом). Добавлено через 26 секунд...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.