Создать одномерный массив из 20 элементов, значения элементов массива взять от -100 до...

Question

Создать одномерный массив из 20 элементов, значения элементов массива взять от -100 до 100, вывезти массив на экран в одну строку, определить количество элементов массива (к) равных числу Р (число Р вводится из клавиатуры)

Answer 1

Ответ:

Program pp;

var

 i,p,c:integer;

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

begin

for i:=1 to 20 do

 begin

 a[i]:=random(-100,100);

 write(a[i], ' ');

 end;

 write('Введите p');

 read(p);

 for i:=1 to 20 do

 begin

 if(p = a[i]) then

 begin

   inc(c);

   end;

 end;

  write('Равных элементов в массиве числу P =',c);

end.

Объяснение:

создали массив создали 20 рандомных чисел сравнили их с числом p и  в случаи успешного условия прибавляем C на 1 и потом просто вывели C в консоль.