Question

!Помогите написать программу! Найти и вывести на экран элементы массива равного заданному с клавиатуры числу. Элементы массива заданы случайным образом.

Answer 1

var

 a:array of integer;

 i,n:integer;

begin

write('Введите кол-во эл массива: '); readln(n);

setlength(a,n);

for i:=0 to n-1 do

 begin

   a[i]:=random(21)-10;

   write(a[i],' ');

 end;

writeln;

write('Введите число: '); readln(n);

for i:=0 to length(a)-1 do

 if a[i]=n then writeln('a[',i+1,']=',a[i]);

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!