Question

помогите пожалуйста решить задачу:
вывести на экран массив из n случайных чисел и найти номер элемента, значение которого равно n (если вводится что n=10 ,то вывести номер элемента ,значение которого равно 10).
помогите пожалуйста!!!!​

Answer 1

const

n=10;

var

a : array [1..n] of integer;

k, i, s : integer;

begin

s:=0;

randomize;

writeln('Введите число n= ');

read(k);

writeln('Массив:');

for i:=1 to n do

 begin

   a[i]:=random(10)+1;

   write(a[i],' ');

 end;

writeln;

for i:=1 to n do

   if (a[i]=k) then

     begin

       s:=s+1;

       write('Номер элемента равный n: ',i)

     end;

if (s=0) then  

 writeln('Такого числа нет');        

end.