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.
1 - 3
2 - 4
3 - 5
4 - 1
5 - 2
6 - 8
7 - 6
8 - 7
9 - 11
10 - 12
11 - 13
12 - 10
13 -9
Трагтостроеник не хочу тебя увидеть и я
Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.