Напишите программу на паскаль

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

Question

Информатика

Тарасыч

9 мая, 07:19

Напишите программу на паскаль

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

+4

Ответы (1)

Знаете ответ на вопрос?

Милена · Answer 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.

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

Напишите программу на паскаль

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