Сформировать целочисленный массив 20 элементов.
1) Подсчитать количество положительных элементов.
2) Подсчитать сумму нечетных элементов.
На языке pascal
NiGhtWolFs:
Как формировать массив? Массив задаёт пользователь с клавиатуры? Или просто генерируются рандомные?
QNT:
Да да, радномные
Ответ
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.
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.
Дополнительные материалы:
числа генерируются из диапазона [-50;50], если нужен другой диапазон, то меняем значения в 9 строчке программы
я бы занес функцию "if" прямо в цикл, т.е.
for i:= 1 to 20 do begin
a[i]:=random(101)-50;
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;
if a[i] mod 2 <> 0 then n:=n+a[i];
end;
но все равно спасиб
я тоже так по началу начал делать, но потом почему то решил каждое задание в отдельном цикле сделать, наверно просто после того как перепутал некоторые переменные, решил всё по порядку сформировать)