Создать одномерный массив из 20 элементов, значения элементов массива взять от -100 до 100, вывезти массив на экран в одну строку, определить количество элементов массива (к) равных числу Р (число Р вводится из клавиатуры)
More Questions From This User See All
Answers & Comments
Ответ:
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 в консоль.