program Tablica_z_liczb_losowych;

{
Program liczy srednia generowanych liczb z przedzialu od -100 do 100
i wyswietla te liczby w kolumnach po 5 sztuk
n-ilosc liczb generowanych
srednia-srednia tych liczb
x[i]-tablica z tych liczb z przedzialu od -100 do +100
i-zmienna pomocnicza
j-zmienna pomocnicza do wyswietlania w kolumnach
randomize-inicjalizacja generatora liczb losowych
}

const n=23;
var x:array[1..n] of real;
  srednia:real;
  i,j:integer;

begin
  j:=1;
  srednia:=0;
  randomize;
  for i:=1 to n do
  begin
     x[i]:=random*200-100;
     srednia:=srednia+x[i];
  end;
  srednia:=srednia/n;
  writeln('Generowane liczby to:"');
  writeln;
  for i:=1 to n do
  begin
    write(x[i]:7:2,' ');
    if i>=j*5 then
    begin
      writeln;
      inc(j);
    end;
  end;
  writeln;
  writeln;
  writeln('Srednia liczb wynosi: ',srednia:0:2);
  readln;
end.