Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
2 апреля 2023 02:30
783
Напишите программу на паскальЗаполните массив случайными числами в интервале [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 02:30
Остались вопросы?
Еще вопросы по категории Информатика
вы отправляете товарищу смс сообщение с домашним заданием по математике. рассмотрите эту ситуацию с информационной точки зрения, указав источник инфор...
В видеопроекторах не требуется: линза, фотобарабан, источник света, кулер...
Что будет напечатано в результате выполнения следующего фрагмента кода? s = '123456789' print(s[5] + s[3]) Запишите ответ цифрами без дополнительн...
Перечислите виды информации по форме представления 5 видов...
Что такое кибернетика?...
Все предметы