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

Program Massiv;

var A:array [0 ... 5] of integer; i, x:integer;

begin

writeln ('Введите цифру, которую нужно найти в массиве');

readln (x);

writeln ('Заполняем массив, с помощью оператора random');

for i:=1 to 5 do

begin

A[i]:=random (5);

writeln (A[i]);

end;

writeln ('Находим какой элемент массива соответсвует своему значению и значению искомого числа, если такое число есть ');

for i:=1 to 5 do

if x=A[i] then writeln ('A[', i,']=', x);

end.

вывод:

Введите цифру, которую нужно найти в массиве

2

Заполняем массив, с помощью оператора random

0

2

0

1

4

Находим какой элемент массива соответсвует своему значению и значению искомого числа, если такое число есть

A[2]=2