Вопрос жизни и смерти! 3 задачи в Паскале...

[puporev]

Условие первой задачи:

Пусть по одному элементу вводится числовая последовательность:
при A(i+1)=A(i) закончить работу.

Еще в ответе есть произведение, видимо автор это упустил.
Поэтому задача решается так:

uses crt;
var a:array[1..100]of integer;
P,SR,N:integer;
begin
clrscr;
P:=1;SR:=0;N:=0;
repeat
N:=N+1;
readln(a[N]);
P:=P*a[N];
SR:=SR+a[N];
until a[N]=a[n-1];
writeln('Proizvedenie=',P,'  Summa=',SR,'  Kolichestvo=',N);
readln
end.

[puporev]

Для закрытия темы третья задача.

uses crt;
var a:array[1..20,1..20]of integer;
    n,m,i,j,sum,max,min,jmax:integer;
begin
clrscr;
write('Kolichestvo strok= ');readln(n);
write('Kolichestvo stolbcov= ');readln(m);
randomize;
Writeln('Matrica:');//создаем матрицу
for i:=1 to n do
   begin
     for j:=1 to m do
       begin
         a[i,j]:=random(21)-10;
         write(a[i,j]:4);
       end;
     writeln;
   end;
readln;
max:=-maxint;jmax:=1;//за макс принимаем самое маленькое Integer
for j:=1 to m do //идем по столбцам
  begin
   sum:=0;
   for i:=1 to n do
   sum:=sum+abs(a[i,j]);//считаем сумму абс в столбцах
   if sum>max then  //находим максимальную
     begin
       max:=sum;
       jmax:=j; //запомимнаем номер столбца
     end;
  end;
min:=a[1,jmax];  //ищем мин в этом столбце
for i:=1 to n do
if a[i,jmax]<min
then min:=a[i,jmax];
writeln('min elem v stolbce ',jmax,'=',min);
readln
end.