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

я бы занес функцию "if" прямо в цикл, т.е.for i:= 1 to 20 do begina[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;

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

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

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