Ответы
Ответ дал:
0
1.var n,i,k:integer;
a:array [1..100] of integer;
begin
read(n);
k:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2<>0 then k:=k+1;
write(k);
end.
2.var n,i,p:integer;
a:array [1..100] of integer;
begin
read(n);
p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<>0 then p:=p*a[i];
write(p);
end.
3.var n,i,k:integer;
a:array [1..100] of integer;
begin
read(n);
k:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]<=1) or (a[i]>=15) then k:=k+1;
write(k);
end.
a:array [1..100] of integer;
begin
read(n);
k:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2<>0 then k:=k+1;
write(k);
end.
2.var n,i,p:integer;
a:array [1..100] of integer;
begin
read(n);
p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<>0 then p:=p*a[i];
write(p);
end.
3.var n,i,k:integer;
a:array [1..100] of integer;
begin
read(n);
k:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]<=1) or (a[i]>=15) then k:=k+1;
write(k);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад