Напишите программу на паскальЗаполните массив случайными числами в интервале [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

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

Найти нужный

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

На рисунке справа – схема дорог, изображенная в виде графа. В таблице содержатся сведения о длинах этих дорог. Таблицу и схему рисовали независимо дру... Документ объемом 5 Мбайт можно передать с одного компьютера на другой двумя способами: А) Сжать архиватором, передать архив по каналу связи, распакова... Назовите свойства объекта операционной системы рабочий стол кратко... На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К, Л, М, Н, Т. По каждой дороге можно двигаться только в одном направлении, ук... Создать текстовую игру в Python Написать код данной игры в программе Python Игрок перемещается по комнатам замка. В каждой комнате находится три дв...