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

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

Найти нужный

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

Дана строка. Подсчитать количество слов,заканчивающихся буквой и. Мышки ели шишки... ответьте плиз..кто такой Эйлер? в честь кого названа графическая схема, обозначающая отношения между множествами?... Постройте деревья, соответствующие следующим арифметическим выражениям: 1) (a+b)*(c+2*d) 2) (2*a-3*d)*c+2*b 3) (a+b+2*c)*d 4) 3*a-(2*b+c)*d... Для какого из указанных значений числа X истинно высказывание ((X < 5)→(X < 3)) или ((X < 2)→(X < 1)) 1) 1 2) 2 3) 3 4) 4 Поскажите как ре... Известны площади круга и квадрата. Определить, уместится ли круг в квадрате. Составить блок-схема...