program project1;
var
        tablica: array [1..20] of integer;
        el, i, j, temp, zakresp, zakresk, suma, min, max: integer;
        srednia, pierw: double;
        wybor: char;
begin

        el := 0;
        zakresp := -10;
        zakresk := 10;
        el:=20;

        for i:=1 to el do
        begin
            tablica[i] := random(zakresk - zakresp) + zakresp;
        end;

        writeln('=====================');
        writeln('Domyslne wartosci:');
        writeln('Zakres od -10 do 10; Liczba elementow: 20');
        writeln('Tablice wypelniono losowymi wartosciami');
        writeln;

        while true do
        begin
             writeln('Wybierz co chcesz zrobic:');
             writeln('w - wyswietl tablice');
             writeln('q - wyjscie');
             writeln('z - zamiana zakresu danych');
             writeln('i - zmiana ilosci elementow');
             writeln('l - losowe generowanie');
             writeln('o - obliczenie podstawowych danych');
             writeln('s - sortowanie tablicy');
             writeln('p - obliczenie pierwiastka z sumy kwardratow elementow');
             write('>');
             readln(wybor);

             case (wybor) of
                  'q': break;      //wyjscie z programu
                  'w': begin       //wyswietlanie
                      for i:=1 to el do
                      begin
                          writeln(tablica[i]);
                      end;
                  end;
                  'i': begin       //zmiana liczby elementow
                      el:=0;
                      while (el < 2) or (el > 20) do
                      begin
                          writeln('podaj ilosc elementow[2-20]:');
                          write('>');
                          readln(el);
                      end;
                  end;
                  'z': begin       //zmiana zakresu
                      zakresp:=-20;
                      while (zakresp < -10) or (zakresp > 10) do
                      begin
                          writeln('podaj poczatek zakresu[-10 do 10]:');
                          write('>');
                          readln(zakresp);
                      end;
                      zakresk:=-20;
                      while (zakresk < -10) or (zakresk > 10) or (zakresk < zakresp) do
                      begin
                          writeln('podaj koniec zakresu[-10 do 10]:');
                          write('>');
                          readln(zakresk);
                      end;
                  end;
                  'l': begin      //wypelnienie losowymi
                      for i:=1 to el do
                      begin
                          tablica[i] := random(zakresk - zakresp) + zakresp;
                      end;
                  end;
                  'o': begin      //obliczanie wartosci
                      suma := 0;
                      min := tablica[1];
                      max := tablica[1];
                      srednia := 0;
                      for i:=1 to el do
                      begin
                          if tablica[i] < min then min := tablica[i];
                          if tablica[i] > max then max := tablica[i];
                          suma := suma + tablica[i];
                      end;
                      srednia := suma / el;
                      writeln('Minimum: ', min);
                      writeln('Maximum: ', max);
                      writeln('Suma: ', suma);
                      writeln('Srednia: ', srednia);
                  end;
                  's': begin     //sortowanie bąbelkowe
                      for i:=1 to el-1 do
                      begin
                           for j:=i+1 to el do
                           begin
                               if tablica[i] > tablica[j] then
                               begin
                                 temp:=tablica[i];
                                 tablica[i] := tablica[j];
                                 tablica[j] := temp;
                               end;
                           end;
                      end;
                  end;
                  'p': begin      //obliczanie pierwiastka sumy kwadratów
                      suma := 0;
                      for i:=1 to el do
                      begin
                          suma := suma + tablica[i]*tablica[i];
                      end;
                      pierw := sqrt(suma);
                      writeln('Wynik: ', pierw);
                  end;
                  else writeln('Nieznane polecenie!');
             end;
        end;
end.