Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 977 ответов!

написать программу которая проверяет находится ли в массиве введенное с клавиатуры число. массив должен вводиться случайным образом(pascal)

10-11 класс

Avdeevd2000 29 дек. 2016 г., 1:01:23 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Shermaks201
29 дек. 2016 г., 3:59:18 (7 лет назад)

В массиве n элементов.
Случайным образом вводятся целые числа от 0 до 999.
x - ведённое с клавиатуры число.
i - цикловая переменная.

var
a : array [1..100] of integer;
x, i, n : integer;
begin
readln (n);
for i := 1 to n do
a [ i ] := random (1000);
readln (x);
for i := 1 to n do
if a [ i ] := x then
writeln ('введённое с клавиатуры число находится в массиве');
end.

Если количество элементов в массиве известно изначально, например 25,  тогда строку " readln (n); " убираете, а строки
" for i := 1 to n do "
заменяете на
" for i := 1 to 25 do "

Минус данной программы: если введённое с клавиатуры число не находится в массиве, то программа ничего не выводит.

+ 0 -
нло321
29 дек. 2016 г., 5:37:47 (7 лет назад)

var

  a:array [1..100] of integer;

  i,n,k:integer;

  f:boolean;

begin

  write ('Razmer massiva (N<100): ');readln(n);

  for i:=1 to n do begin

    a[i]:=random(36)-10;

    write (a[i],' ');

  end;

  writeln; 

  write ('Number: ');readln(k);

  f:=false;

  for i:=1 to n do

    if a[i]=k then f:=true; 

  writeln (f);

  readln;

end.

Выводит FALSE, если в масиве нет числа,иначе выводит TRUE.

Ответить

Другие вопросы из категории

статья,набранная на компьютере содержит 8 страниц,на каждой странице 40 строк,в кажддой строке 64 символа.информационный объем составляет 25

кбайт.определите сколько бит памяти используется для кодирования каждого символа,если известно что для представления каждого символа в ЭВМ отводится одинаковый объем памяти

Читайте также

1)Написать программу, которая спрашивает имя пользователя, а потом здоровается. 2)Написать программу, которая выводит на экран перевёрнутый

текст.

3)Написать программу, которая определяет является ли слово палиндромом.

4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.

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

1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы

каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.

Написать программу Паскаль))) срочно!)))

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



Вы находитесь на странице вопроса "написать программу которая проверяет находится ли в массиве введенное с клавиатуры число. массив должен вводиться случайным образом(pascal)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.