Предмет: Информатика, автор: QNT

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

Ответы

Автор ответа: NiGhtWolFs
0
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.

Приложения:
Автор ответа: QNT
0
я бы занес функцию "if" прямо в цикл, т.е.
for i:= 1 to 20 do begin
a[i]:=random(101)-50;
Автор ответа: QNT
0
write (a[i],' ');
Автор ответа: QNT
0
if a[i]>0 then p:=p+1;
if a[i] mod 2 <> 0 then n:=n+a[i];
end;
Автор ответа: QNT
0
но все равно спасиб
Автор ответа: NiGhtWolFs
0
я тоже так по началу начал делать, но потом почему то решил каждое задание в отдельном цикле сделать, наверно просто после того как перепутал некоторые переменные, решил всё по порядку сформировать)
Похожие вопросы
Предмет: Математика, автор: Аноним
Предмет: История, автор: roma2006