Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
2 апреля 2023 02:30
844
Напишите программу на паскальЗаполните массив случайными числами в интервале [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
Остались вопросы?
Еще вопросы по категории Информатика
Для хранения растрового изображения размером 64 на 64 пикселя отвел 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения...
Выберите среди перечисленных чисел те, которые являются верной записью числа 100(десятеричная система) в какой-либо системе счисления 1 37(во...
Помогите с информатикой Вопрос № 1 Информацию, не зависящую от личного мнения или суждения, называют: понятной объективной актуальной полезной...
Помогите,пожайлуста! узнайте в дополнительных источниках информации историю английской раскладкой клавиатуры...
У исполнителя Счетчик две команды, которым присвоены номера: вычти три умножь на два Первая команда уменьшает число на экране на 3, вторая - удва...