1. program Project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses CRT;
6.  
7. var
8.   n,m,i,j, suma: integer;
9.   c: char;
10.   m1 : Array[1..10, 1..10] of Integer;
11.   m2 : Array[1..10, 1..10] of Integer;
12. procedure wypisz;
13.             begin
14.             for i:= 1 to m do
15.                 begin
16.                 for j:= 1 to n do
17.                     begin
18.                     Write(m1[i][j], ' | ');
19.                     end;
20.                 Writeln();
21.                 end;
22.         end;
23.   procedure wygeneruj;
24.               begin
25.                     for i:= 1 to m do
26.                 begin
27.                 for j:= 1 to n do
28.                     begin
29.                       m1[i][j]:=random(100)-50;
30.                     end;
31.                 end;
32.   end;
33. begin
34.   randomize;
35.   repeat
36.   Writeln ('Program macierzowy');
37.   Writeln ('Autor: Tomasz Habko');
38.   Writeln ('1. Okresl rozmiar macierzy');
39.   Writeln ('2. Wygeneruj  macierz');
40.   Writeln ('3. Wyswietl  macierz');
41.   Writeln ('4. Oblicz sume elementów');
42.   Writeln ('5. Wyznacz kwadrat macierzy');
43.   Writeln ('e. Exit');
44.   Writeln('Wybierz opcje');
45.  
46.   Read (c);
47.   case (c) of
48.        '1':   begin
49.        Write('Wprowadz rozmiar m macierzy: ');
50.        Readln (m);
51.        while ((m<1) or (m>10)) do
52.              begin
53.                      Writeln('Liczba wierszy ma byc z przedzialu od 1 do 10');
54.                      Write('Wprowadz rozmiar m macierzy: ');
55.                      Readln (m);
56.              end;
57.        Write('Wprowadz rozmiar n macierzy: ');
58.        Readln(n);
59.               while ((n<1) or (n>10)) do
60.              begin
61.                      Writeln('Liczba kolumn ma byc z przedzialu od 1 do 10');
62.                      Write('Wprowadz rozmiar m macierzy: ');
63.                      Readln (n);
64.              end;
65.        end;
66.         '2': begin
67.              wygeneruj();
68.              Writeln('Macierz wygenerowana')
69.                          Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
70.             ReadKey();
71.              end;
72.         '3': begin
73.              wypisz();
74.              Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
75.             ReadKey();
76.         end;
77.           '4': begin
78.         suma:=0;
79.             for i:= 1 to m do
80.                 begin
81.                 for j:= 1 to n do
82.                     begin
83.                       suma:=suma+m1[i][j];
84.                     end;
85.                 Writeln();
86.                 end;
87.                            Writeln('Suma Elementow Macierzy wynosi: ',suma);
88.                 Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
89.             ReadKey();
90.           end;
91.             '5': begin
92.             for i:= 1 to m do
93.                 begin
94.             for j:= 1 to n do
95.                 begin
96.                   m1[i][j]:=m1[i][j]*m1[i][j];
97.                 end;
98.             Writeln();
99.             end;
100.             Writeln('Kwadrat Macierzy');
101.                 wypisz;
102.             Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
103.             ReadKey();
104.         end;
105.  
106.   end;
107. clrscr;
108. until (c='e');
109. end.
110.