var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
(C#)
N=Console.Read();
Console.Write(N);
N=N-2//на случай если N=2 или 1
while(N>3)
{
N=N-2
Console.Write(N);
}
1. 1) 10 элементов, вещественный тип
2) 11 элементов, целочисленный тип
2. а) a: array[0..7] of integer
б) a: array[5..24] of integer
3. Будет напечатано: 14 8