Войти Регистрация Спроси ai-bota

Для массива чисел найти количество положительных чисел! !

Ответ:

lera310520069

04.10.2020 21:21

Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)-25;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
-17 -20 -21 -15 -12 24 1 0 14 19
k = 4

0,0(0 оценок)

Популярные вопросы: Информатика

Nargiza02005

07.05.2022 15:22

1.назначение антивирусных программ a.обнаружение и уничтожение вирусов; b.контроль возможных путей распространения компьютерных вирусов; c.обнаружение компьютерных вирусов;...

Fagga322

07.05.2022 15:22

1.системное программное обеспечение: a.программы для организации совместной работы устройств компьютера как единой системы b.программы для организации удобной системы размещения...

magrim600

07.05.2022 15:22

1.прикладное программное обеспечение: a.программы для обеспечения работы других программ b.программы для решения конкретных обработки информации c.программы, обеспечивающие...

Милана1245

07.05.2022 15:22

1. программное обеспечение (по) – это: a.совокупность программ, позволяющих организовать решение на компьютере b.возможность обновления программ за счет бюджетных средств...

Kuznecovanaste

07.05.2022 15:22

1. минимально необходимый набор устройств для работы компьютера содержит… a) принтер, системный блок, клавиатуру b) системный блок, монитор, клавиатуру c) процессор, мышь,...

катя5062

07.05.2022 15:22

Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего высказывания алексея толстого: не ошибается тот, кто ничего не...

elvinaaminova2004

01.02.2023 22:35

Составьте программу которая определяет а)сумма квадратов чисел в диапазоне от 1 до n б) количество натуральных чисел не превышающих 50 и кратных 3 в)сумма квадратов натуральных...

цццрпппр1

01.02.2023 22:35

Постройте таблицу истинности для логического выражения (avb)& (āvb)...

Skapisheva15151515

01.02.2023 22:35

Дано трехзначное число. составьте программу которая определяет а)кратна ли 5 сумма его первой и последней цифры б) сумма квадратов чисел в диапазоне от 1 до n в) количество...

rrrrrrrrrrrrrrrrt

01.02.2023 22:35

1) программное обеспечение (по) – это: а)совокупность программ, позволяющих организовать решение на компьютере б)возможность обновления программ за счет бюджетных средств...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку