Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
2 апреля 2023 02:30
737
Напишите программу на паскальЗаполните массив случайными числами в интервале [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
Остались вопросы?
Еще вопросы по категории Информатика
В сессию студенты сдают 4 зачета и З экзамена. Известен стипендиальный фонд на группу из 10 человек. Студенты, имеющие средний балл > 4.75, получа...
PYTHON Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой. Пример: Введите натуральное число:...
В одном множестве 40 элементов, а в другом - 30.Какое максимальное количество элементов может быть в их: а)пересечении; б)объединении?...
сколько цифер может содержать двеннадцатиричная система счисления...
сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов. Информационный объем всего сообщения равен 28 800 байтов. сколько д...