Напишите программу на паскальЗаполните массив случайными числами в интервале [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

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

Найти нужный

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

Int* arr = (int*)malloc(N * sizeof(int)); выручайте, спросили что такое (int*)... Решите, пожалуйста, блок схему, и написать в программе Паскаль... Представьте число 63 в 10 разряде в беззнаковом 8 разрядном формате.Помогите пожалуйста,ребят.Заранее огромное вам спасибо.... Для генерации случайного целого числа из интервала [10; 20] необходимо использовать выражение: random(20) random random(10)+10 random(11)+10... Производительность работы компьютера (быстрота выполнения операций) зависит от 1) размера экрана 2) сопротивления сети 3) тактовой частоты процессо...