Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
zeka27
03.12.2021 18:14 •
Информатика
Напишите программу на паскаль заполните массив случайными числами в интервале [0,5]. введите число x и найдите все значения равные x
Показать ответ
Ответ:
НектоПожизни
20.07.2020 01:15
Var a: array[1..5] of integer;
x, i: integer;
begin
for i := 1 to 5 do
begin
a[i] := random(5);
write(a[i],' ');
end;
writeln('Введите x');
readln(x);
for i := 1 to 5 do
if a[i] = x then writeln('Иксу равен ', i, '-ый элемент массива');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zajkovb2
19.07.2020 23:12
1. Дослідження-відновлення. Записати речення, уставляючи з довідки відокремлені означення. Указати на причини відокремлення їх і іб вираження 1. Шестигранник, тіло,...
alex499
17.07.2022 23:25
35. алы АҰлым менің, бұл сөзіме бағарсың*,Жанар кезде өзің де от боп жанарсың.Менің қазақ жүрегімді ал, тілімді ұқ,Ал басқасын өзің тауып аларсың.Тұманбай Молдағалиев•...
TEmik777777777
20.04.2023 18:09
2,5/(((0,9+1,111-0,12)/4) SUS...
Windows1011
17.09.2021 04:56
СОЧ Алиса в Стране загадок...
francyz19841
08.10.2022 23:22
: 2-тапсырма. Ривераға көрермендер неге менсінбей қарады, себебі неде? Мәтіннен тауып оқып, оқиғаны әңгімелеп беріңдер....
licach12
08.10.2022 23:22
Ариптер катары дегенимиз не...
дана403
02.01.2020 17:20
На які питання відповідають частини мови?...
daryatitova1
28.07.2021 01:50
1.Проспрягайте в Prӓteritum глаголы из следующих предложений вслух, а затем письменно: 1. Ich machte diese Übung 30 Minuten. 2. Ich kämmte mich nach dem. Waschen. 3....
toshakotik
28.07.2021 01:50
Кадрова служба компанії має список на двох сторінках з прізвищами потенціальних робітників. На першій сторінці – прізвища 9 жінок і 8 чоловіків, на другій – прізвища...
Девочка134
04.03.2020 23:22
Астероїд, що є найбільшим за масою та розмірами? а) Амурб) Атонв) Вестаг) Лютеціяд) Сільвія...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x, i: integer;
begin
for i := 1 to 5 do
begin
a[i] := random(5);
write(a[i],' ');
end;
writeln('Введите x');
readln(x);
for i := 1 to 5 do
if a[i] = x then writeln('Иксу равен ', i, '-ый элемент массива');
end.