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

ilonarudneva14Sofass ilonarudneva14Sofass    1   02.07.2019 15:30    0

Ответы
cherbycorTaiga cherbycorTaiga  02.10.2020 18:31
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.

Сформировать целочисленный массив 20 элементов. 1) подсчитать количество положительных элементов. 2)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика