Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
2 апреля 2023 21:05
694
Напишите программу на паскальЗаполните массив случайными числами в интервале [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
Остались вопросы?
Еще вопросы по категории Информатика
Некое растровое изображение было сохранено в файле как 256-цветный рисунок. Во сколько раз уменьшится информационный объем файла, если это же изображе...
1.Какая клавиатура нажимается после набора последнего данного в операторе read? а) Enter б) точка с запятой в) пробел г) Ctrl 2. При присваивании...
Расставьте над символами логических операций их номера в порядке выполнения операций при вычислении выражения. a) А̅(ВС̅) b) АВ&С c) А&В ̅̅...
статья, набранная на компьютере, содержит 16 страниц, на каждой странице 32 строки, в каждой строке 20 символов. Определите информационный объем стать...
Выберите правильный ответ. Для записи вспомогательных алгоритмов в языке Паскаль используется: А)массивы В)составные операторы С)процедуры и функци...
Все предметы