Question

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

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.

Answer 2

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

Answer 3

write (a[i],' ');

Answer 4

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

Answer 5

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

Answer 6

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