Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 21:05
867
Напишите программу на паскальЗаполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x
1
ответ
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.
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.
0
·
Хороший ответ
4 апреля 2023 21:05
Остались вопросы?
Еще вопросы по категории Информатика
Числом в нормальной форме с нормализованной мантиссой (правильной дробью, имеющей после запятой цифру, отличную от нуля) является: 7815 0,401 x 107...
Можно ли записать 17 видеороликов размером 490 мбайт на флешку размером 8 гбайт?...
Что такое "исходные данные " задачи?...
Перевести два числа из десятичной системы счисления:123, 67 в двоичную систему счисления...
1. Было проведено 9 запусков программы, при которых в качестве значений переменных я и k вводились следующие пары чисел: (1,1); (10, 7); (6,-12); (6,...