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

1 ответ

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

DevAdmin

1700

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 02:30

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

Найти нужный

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

Тактовая частота процессора НЕ измеряется в ... ○ Герцах ○ Миллигерцах ○ Гигагерцах... Что будет выведено в результате выполнения цикла? for X in range(5, 1, -1): print('2', end=' ') Определите, что будет напечатано в результат... Напишите наибольшее число x, для которого ложно высказывание: (x ≥ 13) ИЛИ НЕ (x нечётное).... Приведите примеры: а) пустого множества; б) множества, состоящего из одного элемента; в) множества, состоящего из 10 элементов; г) бесконечного мно... Сколько значащих нулей в двоичной записи числа 4^16+2^36-16? По подробнее с формулами....