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

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

Найти нужный

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

Числом в нормальной форме с нормализованной мантиссой (правильной дробью, имеющей после запятой цифру, отличную от нуля) является: 7815 0,401 x 107... Можно ли записать 17 видеороликов размером 490 мбайт на флешку размером 8 гбайт?... Что такое "исходные данные " задачи?... Перевести два числа из десятичной системы счисления:123, 67 в двоичную систему счисления... 1. Было проведено 9 запусков программы, при которых в качестве значений переменных я и k вводились следующие пары чисел: (1,1); (10, 7); (6,-12); (6,...