program grupa1_0570;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Integer;
var w, k, i, j, ile, m, n, max, max1, max2, wspi, wspj, q, el: Integer;
var suma, s, sr, iloczyn : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(T[i,j]);
end;
//wyszukiwanie najwiekszych elementow
max := T[1,1];
wspi := 1;
wspj := 1;
For i:=1 to w do
For j:=1 to k do
begin
if T[i,j]>max then
begin
max := T[i,j];
wspi := i;
wspj := j;
end;
end;
writeln('Najwieksza wprowadzona wartosc wynosi: ',max,' i znajduje sie ona w wierszu nr: ',wspi,' i
kolumnie nr: ',wspj);

el:=w*k;
//wyszukiwanie pozostałych wartosci najwieskzch - takich samych jak znaleziona

For i:=1 to w do
For j:=1 to k do

begin
if (T[i,j]=max) then
if (i<>wspi) or (j<>wspj) then
writeln('Taka sama wartosc znajduje sie tez w wierszu nr: ',i,' i kolumnie nr: ',j);
end;

//iloczyn dowch najwiekszych elementow tabeli - pierwszy juz mamy teraz tylko drugi
max1 := max;
max2 := T[1,1];

For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (wspi<>i) or (wspj<>j) then
if (i<>m) or (j<>n) then
if (T[i,j]>max2) then
max2 := T[i,j];
end;

iloczyn := max1*max2;
write('Iloczyn dwoch najwikeszych liczb w tabeli (',max1,'*',max2,') wynosi: ',iloczyn:5:2);
writeln;

//ile jest 0 w tabeli
ile :=0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]=0) then
ile := ile + 1;
writeln('Zer w tabeli jest: ',ile);


//wypisanie tabeli - NIE DZIAŁA
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:40);
end;


writeln('Sprawdzanie czy w tablicy sa liczby powtarzajace sie [TAK/NIE]');
p := false;
For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (i<>m) and (j<>n) and (T[i,j]=T[m,n]) then
p := true;

end;

If p = false then
write('NIE')
else
write('TAK');

readln;
end.

program grupa2_0571;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Real;
var min_w: array[1..10] of Integer;
var min_k: array[1..10] of Integer;
var w, k, i, j, ile, m, n, wspi, wspj, q : Integer;
var suma, s, sr, iloczyn, min, min1, min2 : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(T[i,j]);
end;

//wyszukiwanie najmniejszych elementow
q:=1;
min := T[1,1];
wspi := 1;
wspj := 1;

For i:=1 to w do
For j:=1 to k do

if T[i,j]<min then
begin
min := T[i,j];
wspi := i;
wspj := j;
min_w[q] := i;
min_k[q] := j;
end;

writeln('Najmniejsza wprowadzona wartosc wynosi: ',min:5:2,' i znajduje sie ona w wierszu nr: ',wspi,'
i kolumnie nr: ',wspj);


//wyszukiwanie pozostałych wartosci najmniejszych - takich samych jak znaleziona

For i:=1 to w do
For j:=1 to k do
if (T[i,j]=min) then
if (i<>wspi) or (j<>wspj) then
begin
q:=q+1;
writeln('Taka sama wartosc znajduje sie tez w wierszu nr: ',i,' i kolumnie nr: ',j);
min_w[q] := i;
min_k[q] := j;
end;



//iloczyn dowch najmniejszych elementow tabeli
min1 := T[1,1];
min2 := T[1,1];
wspi := 1;
wspj := 1;
For i:=1 to w do
For j:=1 to k do

if (T[i,j]<min1) then
begin
min1 := T[i,j];
wspi := i;
wspj := j;
end;


For m:=1 to w do
For n:=1 to k do
begin

if (T[m,n]<min2) then
if (wspi<>m) or (wspj<>n) then
min2 := T[m,n];
end;

iloczyn := min1*min2;
write('Iloczyn dwoch najmniejszych liczb w tabeli (',min1:5:2,'*',min2:5:2,') wynosi: ',iloczyn:5:2);
writeln;


//wypisanie tabeli z wartosciami minimalnymi?? i ich współrzędne
For i:=1 to q do
begin
writeln('Wartosc minimalna: ',min:5:2);
writeln;
writeln;
writeln('Wspolrzedne tej wartosci najmniejszej wynosza: ',min_w[i],',',min_k[i]);
end;

//wypisanie
For i:=1 to w do
begin
writeln;
For j:=1 to k do
writeln(T[i,j]:20:2);
end;


writeln('Sprawdzanie czy w tablicy sa liczby powtarzajace sie [TAK/NIE]');
p := false;
For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (i<>m) or (j<>n) then
if (T[i,j]=T[m,n]) then
p := true;
end;

If p = false then
write('NIE')
else
write('TAK');


readln;
end.

program grupa3_0568;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Integer;
var w, k, i, j, ile1, suma, o, s : Integer;
var sr : Real;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

ile1:=0;

For i:=1 to w do
For j:=1 to k do
begin
repeat
write('Podaj elment tablicy[',i,',',j,']: ');
readln(T[i,j]);
if T[i,j]<=0 then
ile1 := ile1 + 1;
until (T[i,j]>0);
end;

writeln;

//dodawanie wszystkich liczb

suma := 0;
For i:=1 to w do
For j:=1 to k do
suma := suma + T[i,j];
write('Suma wszystkich elementow tablicy wynosi: ',suma);
writeln;


//liczenie sredniej wartosci w wybranym wierszu
writeln;
repeat
write('Wybierz wiersz z ktorego ma byc policzona srednia: ');
readln(o);
until (o>=1) and (o<=w);

s := 0;

For i:=1 to w do
For j:=1 to k do

if i=o then
begin
s := s + T[o,j];
end;

sr := s/k;
write('Srednia elemntow wiersza ',o,' wynosi: ', sr:10:2);


//obliczenie ile liczb odrzucono podzcas czytywania
write('Podczas wczytywania odrzucono: ',ile1,' liczb.');

//wypisywanie przy lewej krawędzi - NIE DZIAŁA
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:20);
end;

readln;
end.

program grupa4_0576;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Real;
var w, k, i, j, ile, m: Integer;
var suma, s, sr : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(T[i,j]);

end;

//sumowanie liczb ujemnych
suma := 0;
For i:=1 to w do
For j:=1 to k do
if T[i,j]<0 then
suma := suma + T[i,j];
write('Suma elementow ujemnych tablicy wynosi: ',suma:5:2);


//pominiete 0 i dodatnie razem
ile :=0;
For i:=1 to w do
For j:=1 to k do
if T[i,j]>=0 then
ile := ile + 1;
writeln;
writeln;
write('Ilosc pominietych elemntow tablicy wynosi: ',ile);

//liczenie sredniej wartosci w wybranej kolumnie
writeln;
repeat
write('Wybierz kolumne z ktorej ma byc policzona srednia: ');
readln(m);
until (m>=1) and (m<=k);

s := 0;
For i:=1 to w do
For j:=1 to k do
if j=m then
begin
s := s + T[i,j];
end;

sr := s/w;
write('Srednia elemntow kolumny ',m,' wynosi: ', sr:10:2);


//wypisywanie przy lewej krawędzi - NIE DZIAŁA
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:80:2);
end;

//czy istnieje elementy przekraczajace zakres typu SHORT
writeln('Sprawdzanie czy w tablicy sa liczby przekraczajace zakres typu SHORT [TAK/NIE]');
p := false;
For i:=1 to w do

For j:=1 to k do
if (T[i,j]<(-128)) or (T[i,j]>127) then
p := true;

If p = false then
write('NIE')
else
write('TAK');

readln;
end.

program grupa5_0577;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Integer;
var w, k, i, j, ile1, ile2, m, n, min1, min2, iloczyn, max, suma, wspi, wspj : Integer;

begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj elment tablicy[',i,',',j,']: ');
readln(T[i,j]);
end;

writeln;

//dodawanie liczb z zakresu 0 do 7

suma := 0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]>=0) and (T[i,j]<=7) then
suma := suma + T[i,j];
write('Suma elementow nalezacych do przedzialu [0..7] tablicy wynosi: ',suma:5);

writeln;

//ilosc elementow pominietych wiekszych od 7
ile1 := 0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]>7) then
ile1 := ile1 + 1;
write('ILOSC elementow nalezacych do przedzialu [7 wzwyz] tablicy wynosi: ',ile1:5);
writeln;

//ilosc elementow pominietych UJEMNYCH
ile2 := 0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]<0) then
ile2 := ile2 + 1;
write('ILOSC elementow nalezacych do przedzialu [liczby ujemne] tablicy wynosi: ',ile2:5);
writeln;

//iloczyn dwoch najmniejszych elementow tabeli
min1 := T[1,1];
min2 := T[1,1];
wspi := 1;
wspj := 1;
For i:=1 to w do
For j:=1 to k do

if (T[i,j]<min1) then
begin
min1 := T[i,j];
wspi := i;
wspj := j;
end;


For m:=1 to w do
For n:=1 to k do
begin

if (T[m,n]<min2) then
if (wspi<>m) or (wspj<>n) then
min2 := T[m,n];
end;

iloczyn := min1*min2;
write('Iloczyn dwoch najmniejszych liczb w tabeli (',min1:5,'*',min2:5,') wynosi: ',iloczyn:5);
writeln;

//wypisanie tabeli - NIE DZIAŁA
For i:=1 to w do
begin

writeln;
For j:=1 to k do
write(T[i,j]:30);
end;
writeln;
//ustalenie zakresu
max := T[1,1];
For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (T[i,j]>max) then
max := T[i,j];
end;
write('Zakres liczb w tablicy wynosi: MAX: ',max,' MIN: ',min1);

readln;
end.

program grupa6_0574;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Integer;
var w, k, i, j, ile, suma, s, el : Integer;
var sr : Real;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);



For i:=1 to w do
For j:=1 to k do
begin
repeat
write('Podaj elment tablicy[',i,',',j,']: OCENE Z ZAKRESU [2..5] - liczbe calkowita ');
readln(T[i,j]);
until (T[i,j]>=2) and (T[i,j]<=5);

end;

writeln;

//dodawanie wszystkich liczb

suma := 0;
For i:=1 to w do
For j:=1 to k do
suma := suma + T[i,j];
write('Suma wszystkich ocen w tablicy wynosi: ',suma);
writeln;


//liczenie sredniej wartosci ocen

s := 0;

For i:=1 to w do
For j:=1 to k do
begin
s := s + T[i,j];
end;
el := w*k;
sr := s/el;
write('Srednia wartosc ocen wynosi: ', sr:10:2);


//obliczenie ile ocen przewyzsza wartosc sredniej
ile := 0;
For i:=1 to w do
For j:=1 to k do

if T[i,j]>sr then
ile := ile + 1;
write('Ilosc ocen powyzej sredniej: ',ile);

//wypisywanie przy lewej krawędzi - NIE DZIAŁA

For i := 1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:40);
end;


readln;
end.

program grupa7_0573;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Real;

var w, k, i, j, ile, m, n, q, e, h : Integer;
var suma, s, sr, iloraz, min, min1, min2, max : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(T[i,j]);
end;

//suma liczb z zakresu od 3 do 9
suma := 0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]<=9) and (T[i,j]>=3) then
suma := suma + T[i,j];
write('Suma elementow z zakresu od 3 do 9 tablicy wynosi: ',suma:5:2);

//wypisanie

For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:80:2);
end;


//iloraz największego i najmniejszego elemntu
iloraz:=0;
max := T[1,1];
min := T[1,1];

For i:=1 to w do
For j:=1 to k do
begin
if T[i,j]>max then
max := T[i,j];
if T[i,j]<min then
min := T[i,j];
end;
iloraz := max/min;
writeln('Iloraz elemntu maksymalnego tablicy, który wynosi: ',max:5:2,' do minimalnego, który
wynosi: ',min:5:2,' jest rowny: ',iloraz:5:2);



writeln('Sprawdzanie czy w tablicy sa liczby powtarzajace sie [TAK/NIE]');
p := false;
For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (i<>m) or (j<>n) then
if (T[i,j]=T[m,n]) then
p := true;
end;

If p = false then
write('NIE')
else
write('TAK');

ile :=0;
For i:=1 to w do
For j:=1 to k do
if T[i,j]=0 then
ile := ile + 1;
writeln;

writeln('Zer w tablicy jest: ',ile);




readln;
end.

program grupa8_0566;

{$APPTYPE CONSOLE}

uses

SysUtils;

var M : array[1..10,1..10] of Real;
var w, k, i, j, ile0, iled, o: Integer;
var suma, s, sr : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(M[i,j]);
end;

//sumowanie liczb ujemnych
suma := 0;
For i:=1 to w do
For j:=1 to k do
if M[i,j]<0 then
suma := suma + M[i,j];
write('Suma elementow ujemnych tablicy wynosi: ',suma:5:2);


//pominiete 0
ile0 :=0;
For i:=1 to w do
For j:=1 to k do
if M[i,j]=0 then
ile0 := ile0 + 1;
write('Ilosc pominietych 0 w tablicy wynosi: ',ile0);

//pominiete dodatnie
iled :=0;
For i:=1 to w do
For j:=1 to k do
if M[i,j]>0 then
iled := iled + 1;
write('Ilosc pominietych elemntow dodatnich tablicy wynosi: ',iled);

//liczenie sredniej wartosci w wybranym wierszu
writeln;

repeat
write('Wybierz wiersz z ktorego ma byc policzona srednia: ');
readln(o);
until (o>=1) and (o<=w);

s := 0;

For i:=1 to o do
if i=o then
For j:=1 to k do
s := s + M[o,j];


sr := s/w;
write('Srednia elemntow wiersza ',o,' wynosi: ', sr:10:2);


//wypisywanie przy lewej krawędzi - NIE DZIAŁA
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(M[i,j]:80:2);
end;

//czy istnieje elementy przekraczajace zakres typu BYTE
writeln('Sprawdzanie czy w tablicy sa liczby pprzekraczajace zakres typu BYTE [TAK/NIE]');
p := false;
For i:=1 to w do
For j:=1 to k do
if (M[i,j]<0) or (M[i,j]>255) then
p := true;

If p = false then
write('NIE')
else
write('TAK');

readln;
end.

program grupa9_0567;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Integer;
var w, k, i, j, ile1, m, n, max1, max2, iloczyn, min, suma, wspi, wspj, max, min1 : Integer;

begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj elment tablicy[',i,',',j,']: ');
readln(T[i,j]);
end;

writeln;

//dodawanie liczb z zakresu -3 do 3

suma := 0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]>=-3) and (T[i,j]<=3) then
suma := suma + T[i,j];
write('Suma elementow nalezacych do przedzialu [-3..3] tablicy wynosi: ',suma);
writeln;

//iloczyn dowch najwiekszych elementow tabeli - pierwszy juz mamy teraz tylko drugi


max1 := T[1,1];
max2 := T[1,1];
wspi := 1;
wspj := 1;
For i:=1 to w do
For j:=1 to k do

if (T[i,j]>max1) then
begin
max1 := T[i,j];
wspi := i;
wspj := j;
end;


For m:=1 to w do
For n:=1 to k do
begin

if (T[m,n]>max2) then
if (wspi<>m) or (wspj<>n) then
max2 := T[m,n];
end;

iloczyn := max1*max2;
write('Iloczyn dwoch najwiekszych liczb w tabeli (',max1:5,'*',max2:5,') wynosi: ',iloczyn:5);
writeln;


//wypisanie tabeli - NIE DZIAŁA
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:40);
end;

//ilosc elementow dwucyfrowych w tabeli
ile1 := 0;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]>9) or (T[i,j]<(-9)) then
ile1 := ile1 + 1;
write('ILOSC elementow dwucyfrowych w tabeli tablicy wynosi: ',ile1:5);
writeln;

//wypisanie tabeli - NIE DZIAŁA
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:10);
end;
writeln;
//ustalenie zakresu
max := T[1,1];
min := T[1,1];
For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (T[i,j]>max) then
max := T[i,j];
if (T[i,j]<min) then
min := T[i,j];
end;
write('Zakres liczb w tablicy wynosi: MAX: ',max,' MIN: ',min);

readln;

end.

program grupa10_0575;

{$APPTYPE CONSOLE}

uses
SysUtils;

var T : array[1..10,1..10] of Integer;
var w, k, i, j, ile, suma, s, el, max, min, m, n : Integer;
var sr, sr_w : Real;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);



For i:=1 to w do
For j:=1 to k do
begin
repeat
write('Podaj elment tablicy[',i,',',j,']: OCENE Z ZAKRESU [2..5] - liczbe calkowita ');
readln(T[i,j]);
until (T[i,j]>=2) and (T[i,j]<=5);
end;

writeln;




//liczenie sredniej wartosci ocen

s := 0;

For i:=1 to w do
For j:=1 to k do
begin
s := s + T[i,j];
end;
el := w*k;
sr := s/el;

write('Srednia wartosc ocen wynosi: ', sr:10:2);
writeln;
//policzenie sredniej dla kazdego wiersza

For i:=1 to w do
begin
suma:=0;
For j:=1 to k do
suma := suma + T[i,j];
sr_w := suma/k;
writeln('Srednia elemntow wiersza ',i,' wynosi: ', sr_w:10:2);
end;

writeln;


//obliczenie ile ocen przewyzsza wartosc sredniej
ile := 0;
For i:=1 to w do
For j:=1 to k do

if T[i,j]>sr then
ile := ile + 1;
write('Ilosc ocen powyzej sredniej: ',ile);
writeln;
//wypisywanie przy lewej krawędzi - NIE DZIAŁA

For i := 1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:40);
end;
writeln;
//ustalenie zkaresu ocen

min := T[1,1];
max := T[1,1];
For i:=1 to w do
For j:=1 to k do
begin
For m:=1 to w do
For n:=1 to k do
if (T[i,j]>max) then
max := T[i,j];
if (T[i,j]<min) then
min := T[i,j];
end;
write('Zakres ocen w tablicy wynosi: MAX: ',max,' MIN: ',min);

readln;
end.

program grupa11_0578;

{$APPTYPE CONSOLE}

uses
SysUtils;

var M : array[1..10,1..10] of Real;
var w, k, i, j, ile, o, n: Integer;
var suma, max, min, iloraz : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(M[i,j]);
end;
writeln;
suma := 0;
For i:=1 to w do
For j:=1 to k do
if (M[i,j]>=0) and (M[i,j]<=9) then
suma := suma + M[i,j];
write('Suma elementow [0..9]: ',suma:5:2);

writeln;

//wyswietlanie tablicy - NIE DZIAŁA
write('Macierz: ');
For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(M[i,j]:40:2);
end;
writeln;

//iloraz największego i najmniejszego elemntu
iloraz:=0;
max := M[1,1];
min := M[1,1];
For i:=1 to w do
For j:=1 to k do
begin
if M[i,j]>max then
max := M[i,j];
if M[i,j]<min then
min := M[i,j];
end;
iloraz := max/min;
write('Iloraz elemntu maksymalnego tablicy, który wynosi: ',max:5:2,' do minimalnego, który wynosi:
',min:5:2,' jest rowny: ',iloraz:5:2);
writeln;
//liczenie elementow ujemnych
ile :=0;
For i:=1 to w do
For j:=1 to k do
if M[i,j]<=(-10) then
ile := ile + 1;
write('Ilosc elemento ujemnych dwucyfrowych: ',ile);
writeln;

writeln('Sprawdzanie czy w tablicy sa liczby powtarzajace sie [TAK/NIE]');
p := false;
For i:=1 to w do
For j:=1 to k do
begin
For o:=1 to w do
For n:=1 to k do
if (i<>o) or (j<>n) then
if (M[i,j]=M[o,n]) then
p := true;
end;

If p = false then
write('NIE')
else
write('TAK');

readln;
end.

program grupa12;

{$APPTYPE CONSOLE}

uses

SysUtils;

var T : array[1..10,1..10] of Real;
var w, k, i, j, ile, m: Integer;
var suma, s, sr : Real;
var p: boolean;
begin

repeat
write('Podaj liczbe wierszy w macierzy [1..10]: ');
readln(w);
until (w>0) AND (w<11);

repeat
write('Podaj liczbe kolumn w macierzy [1..10]: ');
readln(k);
until (k>0) AND (k<11);

For i:=1 to w do
For j:=1 to k do
begin
write('Podaj element [',i,',',j,']: ');
readln(T[i,j]);
end;

suma := 0;
For i:=1 to w do
For j:=1 to k do
if T[i,j]<0 then
suma := suma + T[i,j];
write('Suma elementow ujemnych tablicy wynosi: ',suma:5:2);

ile :=0;
For i:=1 to w do
For j:=1 to k do
if T[i,j]>=0 then
ile := ile + 1;
writeln;
writeln;
write('Ilosc pominietych elemntow tablicy wynosi: ',ile);
writeln;
repeat
write('Wybierz kolumne z ktorej ma byc policzona srednia: ');
readln(m);
until (m>=1) and (m<=k);

s := 0;
For i:=1 to w do
For j:=1 to k do
if j=m then
begin
s := s + T[i,j];

end;

sr := s/w;
write('Srednia elemntow kolumny ',m,' wynosi: ', sr:10:2);

For i:=1 to w do
begin
writeln;
For j:=1 to k do
write(T[i,j]:80:2);
end;
writeln('Sprawdzanie czy w tablicy sa liczby mniejsze niz dwucyfrowe (ujemne) [TAK/NIE]');
p := false;
For i:=1 to w do
For j:=1 to k do
if (T[i,j]>(-10)) and (T[i,j]<0) then
p := true;

If p = false then
write('NIE')
else
write('TAK');

readln;
end.