Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 21:05
839
Напишите программу на паскальЗаполните массив случайными числами в интервале [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. Графический редактор — это программа, предназначенная для: А. управления ПК при создании рисунков; Б. работы с текстовой информацией; В. с...
Реши задачу. (Ответ округли до целых). Найди информационный объём статьи, которая набрана на компьютере и состоит из 29 страниц, на каждой странице 32...
Для какого из приведённых значений X истинно логическое условие: НЕ((X кратно 7)→(X кратно 8))...
Все формулы на нахождение задач по информатике 8-9 класс...
В чем преимущество компьютерных информационных моделей перед теоретическими? Вопрос из учебника информатики за 10 класс, автор Семакин, §13 "Компьютер...