Предмет: Информатика,
автор: QNT
Сформировать целочисленный массив 20 элементов.
1) Подсчитать количество положительных элементов.
2) Подсчитать сумму нечетных элементов.
На языке pascal
Ответы
Автор ответа:
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.
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.
Приложения:
Автор ответа:
0
я бы занес функцию "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;
Автор ответа:
0
write (a[i],' ');
Автор ответа:
0
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;
Автор ответа:
0
но все равно спасиб
Автор ответа:
0
я тоже так по началу начал делать, но потом почему то решил каждое задание в отдельном цикле сделать, наверно просто после того как перепутал некоторые переменные, решил всё по порядку сформировать)
Похожие вопросы
Предмет: Русский язык,
автор: Xinata13
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: veronikaper125
Предмет: Математика,
автор: semt
Предмет: История,
автор: roma2006