Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
2 апреля 2023 02:30
854
Напишите программу на паскальЗаполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x
1
ответ
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.
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
·
Хороший ответ
4 апреля 2023 02:30
Остались вопросы?
Еще вопросы по категории Информатика
Перевести число 11101 из двоичной системы счисления в десятичную...
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(0) = 1, F(1) = 1 F(n) = F(n–1)*F(n-2)+2, при...
СРОЧНО Верно ли утверждение: метод фокальных объектов - это процесс поиска идей, характеристик одного предмета путем переноса на него свойств другого....
Решите кроссворд.Какое слово получилось по вертикали?1)Кодовый набор чисел для защиты информации. 2)"Мозг" компьютера.3)Обеспечивает доступ в Интернет...
Помогите!!! В табличной форме представлен фрагмент базы данных: На какой позиции окажется товар *Сканер планшетный* , если произвести сортировку данн...