Nieśmiertelność ! :D

Nawet nie wiecie jak bardzo jestem zaskoczony !

Jedna z moich prac trafiła na okładkę internetowego (bardzo znanego) magazynu Blender Art !

Niezwykle mnie to cieszy a dodatkowo pomoże w mojej przyszłej karierze :)

Pozdrawiam i życze wam odnoszenia swoich sukcesów !

ALE TO DLA MNIE

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  ileTab = 100;
var
  tab,tabMin,tabMax : Array [1..ileTab] of integer;
  nr,ileMax,min,max,i : integer;
begin
  //losowanie
  randomize;

  for i:=1 to ileTab do
    begin
      tab[i]:=random(999)+1;
    end;
  //wyswietlanie losowania
  for i:=1 to ileTab do
    begin
      write(tab[i]:10);
    end;

  nr:=1;
  for i:=1 to (ileTab div 2) do
    begin
      if tab[nr]>tab[nr+1] then
        begin
           tabMax[i]:=tab[nr];
           tabMin[i]:=tab[nr+1];
        end
      else
        begin
           tabMax[i]:=tab[nr+1];
           tabMin[i]:=tab[nr];
        end;
          
      nr:=nr+2;
    end;

   ileMax :=0;     //ile elementow e tablicach tabMax i tabMin

   if (ileTab mod 2) > 0 then
     begin
       tabMax[ileMax]:=tab[ileTab];
       tabMin[ileMax]:=tab[ileTab];
     end;

 Writeln;
 WriteLN('tabMax');
 for i:=1 to ileMax do
  begin
    write(tabMax[i]:5)
  end;

 Writeln;
 WriteLN('tabMin');
 for i:=1 to ileMax do
  begin
    write(tabMin[i]:5)
  end;


 max:=tabMax[1];
 for i:=2 to ileMax do
  begin
    if tabMax[i]>max then max:=tabMax[i]
  end;

  min:=tabMin[1];
 for i:=2 to ileMax do
  begin
    if tabMin[i]>min then min:=tabMin[i]
  end;

  Writeln;
  Writeln('liczba max:',max);
  Writeln('liczba min:',min);
  Readln;
end.