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

1 ответ

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

DevAdmin

1720

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

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

Найти нужный

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

Напишите программу, которая по данному натуральному числу N вычисляет сумму следующего выражения: 12 + 2 2 + 33 + … + n2.   Входные данны... После выполнения команды присваивания x:=x+y значение переменной х равно 3, а значение переменной у равно 5. Чему были равны значения переменных х и у... Помогите пожалуйста решить Исполнитель Черепаха действует на плоскости с декартовой системой координат. В начальный момент Черепаха находится в начал... Даны запросы к поисковой системе : a) чемпионы (бег & плавание) б) чемпионы& плавание в)чемпионы бег плавание г) чемпионы & Европа &amp... СОСТАВИТЬ СХЕМУ X=A*B(верхнее подчёркивание)+A(верхнее подчёркивание)*B*C(верхнее подчёркивание) и всё это тоже верхнее подчёркивание там картинка эт...