Програмування 2016 обл.

Сміх

program zad_A;
var
S,s1: string;
I, j , n,k,k2   :integer;
f : boolean;
begin
s:='ahah';
n := Length(S);
I:=1;
k :=1;
//f:=true;
S:=S+'b';//чтобы и не выхоил за длину строки надо добавить ещё когда вообще нет а
k2:=0;
while I<=n do
  begin
        if (S[i]='h') and (S[I+1]='a')or
       (S[i]='a') and (S[I+1]='h')
    then K:=k+1
    else begin
          if k2<k then K2:=k;      
          K:=1;
         end;
     I:=I+1;
  end;
Write (k2);
end.

Максимальний  добуок

program zad_C;
VAR
a :array [1..20000] OF integer;
C: array [1..20000,1..20000] of integer;
n,i,j,l1,l2,k : integer;
f,f1 : Text;
BEGIN
Assign (f,'input.txt');
Reset (f);
read (f,n);

FOR i:=1 TO n DO
 read (f,A[i]);
//C[1,1]:=A[1];
//C:=1;
for I:=1 to n-1 do// заполнение многомерного масива произведениями.
  begin
  C[i,i]:=A[i];
   for J:=I+1 to n do
    begin
    C[i,j]:=C[i,j-1]*A[j];
    Write (C[i,j],' ');
    end;
  Writeln;
  end;
k:=C[1,1];
L1:=1;
L2:=1;
for I:=1 to n do
  begin
  for J:=1 to n do
    if k< C[i,j] then begin // поиск максимального произведения в масиве и запоминаем номер строки столбца
      K:=C[i,j];
      L1:=i;
      L2:=j;
      end;
     
  end;
close (f);
writeln;
Writeln (l1,' ',l2);
Writeln ('==========');
for I:=1 to n do// вывод многомерного масива
  begin
  for J:=1 to n do
    Write (c[i,j],' ');
  writeln;
  end;
END.

2 способ (под вопросом)

A,B : array [1..100] of integer;

i,j,n,l1,l2,p: integer;

f1: text;

begin

Assign (f1,'input.txt');

Reset (f1);

read (f1,n);

P:=0;

FOR i:=1 to n DO

read (f1,A[I]);

close (f1);

P:=a[1];

For I:=1 to n do

  begin

  B[i]:=A[i];

  For J:=I+1 to n do

      begin

        B[J]:=B[j-1]*A[j];

        Write (b[j],' ');

        if p<=b[j] then

          begin

            P:=B[j];

            L2:=j;

            L1:=i;

          end;

      end;

  writeln;

  end;

Write (l1,' ',l2,'  --> ',p);

end.