program tablice;
const
  N = 99;
var
  tab1: array[0..N] of integer;
  i: integer;
  suma, min, max, idMin, idMax: integer;
begin
  randomize;
  min:= 0;
  suma:= 0;
  for i:=0 to N do
    begin
    tab1[i] := random(1000);
    suma:=suma+tab1[i];
    if i=0 then
      begin
        min:=tab1[0]; idMin:=0;
        max:=tab1[0]; idMax:=0;
      end
    else
      begin
        if tab1[i]>max then
          begin
            max:=tab1[i]; idMax:=i;
          end;
      end;
    if i=0 then
      begin
        min:=tab1[0]; idMin:=0;
        max:=tab1[0]; idMax:=0;
      end
    else
      begin
        if tab1[i]<min then
          begin
            min:=tab1[i]; idMin:=i;
          end;
      end;
    end;
  writeln('...........');
  for i:=0 to N do
  writeln(tab1[i]);
  writeln('...........');
  writeln('Max: ',max,', idMax: ',idMax);
  writeln('Min: ',min,', idMin: ',idMin);
  writeln('Suma: ', suma);
  readln();
end.