Напишите программу на паскальЗаполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x

1 ответ

Посмотреть ответы

Megamozg

2205

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.

Хороший ответ

4 апреля 2023 21:05

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Что такое запись в информатике... Дано трехзначное число. Найдите сумму его цифр. На вход дается число от 100 до 999. ЯЗЫК ПИТОН!!!!!!!!!... Укажите НЕВЕРНОЕ утверждение 1 Средства связи придаточного предложения с главным – один из признаков, по которым выделяются группы сложноподчин... Выберите фрагмент программы для определения: По введенному номеру цвета от 1 до 7 ввести его название в радуге, если введена другая цифра, то выдать с... Пусть [x] – это целая часть числа x, а / – обычное, нецелочисленное деление. Функция F(n) задана следующими строчками и условиями: F(0) = 0...