Ответы на вопрос:
var a:array[1..100] of integer;
b,c,d:integer;
begin
c:=0;
d:=0;
for b:=1 to 100 do
begin
a[b]:=random(41)-30;
writeln('a[',b,']= ',a[b]);
if a[b]>0 then c:=c+1;
if a[b]<0 then d:=d+1;
end;
writeln('Количество положительных значений равняется ',c);
writeln('Количество отрицательных значений равняется ',d);
end.
5)
var
int sum=0;
int kolmin=0;
arr=[0,15,12,–9,–8,58,45,36,–85,58,36,–45,2,3,25,–9];
for(i=0;i<16;i++){
if(arr[i]>0){ sum+=arr[i];}
if(arr[i]<0){kolmin++;}
}
writeln('сумма + элементов = ',sum);
writeln('количество отрицательных элементов = ',kolmin);
end.
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Raul02050702.10.2021 02:31
-
xerobiriv11.12.2021 23:26
-
kirkanobotan13.09.2022 14:23
-
marushakeduard12.11.2020 11:54
-
dauren1mukumov01.08.2020 12:30
-
artyrik41200228.01.2021 08:21
-
камил48614.08.2021 21:16
-
juter22.04.2021 07:09
-
StepanEgorov13.06.2023 20:29
-
dneprovskaya2012.06.2021 12:40
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.