Напишите программу на паскаль
Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x
Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x
More Questions From This User See All
Answers & Comments
Verified answer
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.