Tablica 100 elementów

program JaToJa2;

uses crt;

type
tab = array [1..100] of byte;

var
T:tab;

procedure losuj(var T:tab);
var
i:byte;
begin
for i:=1 to 100 do
    begin
    T[i]:=random(100)+1;
    write(T[i], ' ');
    end;
end;

procedure wartosci(T:tab);
var
min,i:byte;
suma:word;
srednia:real;
begin
min:=T[1];
suma:=T[1];
for i:=2 to 100 do
    begin
    if min>T[i] then
    min:=T[i];
    suma:=suma+T[i];
    end;
srednia:=suma/100;
writeln;
writeln('Najmniejszy element: ',min);
writeln('Suma wszystkich elementow: ',suma);
writeln('Srednia elementow: ',srednia:0:2);
end;

begin
clrscr;
randomize;
losuj(T);
wartosci(T);
readln;
end.