Сформировать целочисленный массив 20 элементов.
1) Подсчитать количество положительных элементов.
2) Подсчитать сумму нечетных элементов.
На языке pascal
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
