Циклы

[imo]

Помогите пожалусто
1.Составить программу, в которой вводится последовательность из n целых чисел и находится наибольшее и наименьшее число.

2.Вывести на экран последовательности следующего вида:
2*4*…*N, если N – четное,
S =
1*3*…*N, если N – нечетное, N > 2.

[Hacker19_90]

На Паскале или на С++

[RUSt88]

imo, обращайся, сделаю на люом из языков, указанных ниже

[mifomen]

2 задача
Верна если S -это произведение последовательности

PHP код:

program u;
uses crt;
var n,i,j:integer; s:real;
begin
clrscr;
repeat    write('n= '); readln(n); until n>2; s:=1;
     if n mod 2=0 then {Chetnoe}
        begin
         i:=2;
        while i<=n do
          begin
          s:=s*i; write(i,' '); i:=i+2;
          end;
          writeln('Proiz ',s:7:2);
        end
                        else  {Ne chetnoe}
                          begin
                          i:=1;
                          while i<=n do begin
                          s:=s*i; write(i,' ');i:=i+2;
                              end;
                          writeln('Proiz ',s:7:2);
                          end;

readkey
end. 


[imo]

Большое спасибо