Напишите программу на паскальЗаполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x

1 ответ

Посмотреть ответы

Megamozg

2205

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.

Хороший ответ

4 апреля 2023 21:05

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Аналоговый звуковой сигнал был записан сначала с использованием 16 уровней дискретизации сигнала, а затем с использованием 4096 уровней дискретизации... Требуется найти наименьший натуральный делитель целого числа N, отличный от 1.язык C++... В каких технических системах звук передается в аналоговой форме?... 1Переведите из двоичной в восьмеричную и в шестнадцатеричную 22. Для десятичного числа 79 выполните цепочку переводов из одной системы счислени... Напишите алгоритм, под управлением которого Робот обойдёт прямоугольную область, обнесённую стеной, по периметру и закрасит угловые клетки. Размеры об...