Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
Ромб белый
квадрат зелёный
треугольник красный
круг синий
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
c,i,k:integer;
ar:array[1..n] of integer;
r:real;
begin
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-43,34);
if ar[i]>c then
begin
inc(k);
r:=r+ar[i];
end;
write(ar[i]:4);
end;
writeln;
r:=r/k;
write(r);
end.
Пример ввода:
0
Пример вывода:
Array:
20 -23 23 18 -40 -16 -39 31 -12 21
22.6
var c:array[1..15]of byte;
i,s1,s2,s3:integer; k:boolean;
begin
for i:=1 to 15 do readln(c[i]);
for i:=1 to 15 do begin
if c[i]=0 then inc(s1) else inc(s2);
if c[i]<>0 then k:=true;
if k=false then inc(s3);
end;
writeln(s1,' ',s2,' ',s3);
end.
1
¬CvA
<span>Вывод в приложении.</span>