Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
2 апреля 2023 21:05
677
Напишите программу на паскальЗаполните массив случайными числами в интервале [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!1 На улице строителей из 20 домов 6 деревянных 8 сделаны из кирпича,а оставшиеся из железобетонных плит.Чему равна неопределённость ответа н...
В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета: Запрос Количество с...
После преобразования растрового 256-цветного графического файла в черно-белый формат ( 2 цвета ) его размер уменьшился на 70 байт .Каков был размер ис...
12) Каково назначение процессора? a. обрабатывать одну программу в данный момент времени b. управлять ходом вычислительного процесса и выполнять ари...
Caps Lock - это клавиша: а) включения дополнительной клавиатуры; б) фиксации ввода заглавных букв; в) замены символов; г) вставки символов....
Все предметы