Сформировать целочисленный массив 20 элементов. 1) Подсчитать количество положительных...

Question

Сформировать целочисленный массив 20 элементов.
1) Подсчитать количество положительных элементов.
2) Подсчитать сумму нечетных элементов.
На языке pascal

Comments

Как формировать массив? Массив задаёт пользователь с клавиатуры? Или просто генерируются рандомные?

---

Да да, радномные

Answer 1

Var a:array[1..20] of integer;
i,p,n:integer;
begin
p:=0;
n:=0;
write ('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
for i:=1 to 20 do
if a[i]>0 then p:=p+1;
for i:=1 to 20 do
if a[i] mod 2 <> 0 then n:=n+a[i];
WRITELN;
write ('Кол-во положительный элементов = ',p);
WRITELN;
write ('Сумма нечётных элементов = ',n);
end.

---

Comments

числа генерируются из диапазона [-50;50], если нужен другой диапазон, то меняем значения в 9 строчке программы

---

я бы занес функцию "if" прямо в цикл, т.е.
for i:= 1 to 20 do begin
a[i]:=random(101)-50;

---

write (a[i],' ');

---

if a[i]>0 then p:=p+1;
if a[i] mod 2 <> 0 then n:=n+a[i];
end;

---

но все равно спасиб

---

я тоже так по началу начал делать, но потом почему то решил каждое задание в отдельном цикле сделать, наверно просто после того как перепутал некоторые переменные, решил всё по порядку сформировать)