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

258

485

Ответы на вопрос:

4,5(67 оценок)

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;

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

end.

Объяснение:

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

4,7(51 оценок)

Var a: integer; begin readln(a); if (a< 100) then a: =a+1 else a: =a-1; writeln(a); end.

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.