Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
2 апреля 2023 21:05
670
Напишите программу на паскальЗаполните массив случайными числами в интервале [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
Остались вопросы?
Еще вопросы по категории Информатика
Для какого символьного выражения верно высказывание:"НЕ(Первая буква согласная)и НЕ (вторая буква гласная")? 1)abcde 2)bcade 3)babas 4)cabab...
К числу основных функций текстового редактора относятся ...
Переведите двоичное число 1100011 в десятичную систему счисления...
Какие формы общения в реальном времени существуют в интернете ?...
перепишите программу из практической работы предыдущего урока так, чтобы интерфейс выглядел примерно следующим образом...
Все предметы