//sumowanie ujemnych i zliczanie zer i dodatnich i wypisanie w 3 linii po sumie
suma:= 0;
ilosc0dod:= 0;
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]<0) then suma:= suma + tab[i,j]
else ilosc0dod:= ilosc0dod + 1;
writeln('Suma elementow ujemnych: ',suma:5:2);
writeln;
writeln;
writeln('ilosc pominietych 0 i dodatnich: ',ilosc0dod:5);
-----------------------------------------------------------------------
//srednia wartosc z wybranej kolumny
repeat
write('podaj nr kolumny do sredniej: ');
readln(nrK);
until (nrK>0)and(nrK<=k);
suma:= 0;
for i:=1 to w do suma:= suma + tab[i,nrK];
writeln('srednia z ',nrK,' kolumny wynosi: ',suma/w:7:2);
-----------------------------------------------------------------------
//wypisanie od prawej
writeln;
writeln('Tabela':80);
for i:=1 to w do
begin
write(' ':80-k*8);
for j:=1 to k do write(tab[i,j]:8:2);
end;
-----------------------------------------------------------------------
//czy ujemne dwucyfrowe
write('czy w tablicy wystepuja elementy ujemne dwucyfrowe? ');
q:= false;
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]<=-10)and(tab[i,j]>=-99) then q:= true;
if q then writeln('TAK')
else writeln('NIE');
-----------------------------------------------------------------------
/czy przekraczja zakres BYTE
write('czy w tablicy wystepuja elementy przekraczjace zakres BYTE? ');
q:= false;
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]<0)or(tab[i,j]>255) then q:= true;
if q then writeln('TAK')
else writeln('NIE');
-----------------------------------------------------------------------
//zakres liczb w tabeli
max:=tab[1,1];
min:=tab[1,1];
for i:=1 to w do
for j:=1 to k do
if tab[i,j]>max then max:= tab[i,j]
else if tab[i,j]<min then min:= tab[i,j];
writeln('w tabeli znajduja sie liczby z zakresu: [',min:5:2,' - ',max:5:2,']');
-----------------------------------------------------------------------
//wczytywanie tylko dodatnich ze zliczaniem odrzuconych
licznik:= -w*k;
for i:=1 to w do
begin
for j:=1 to k do
begin
repeat
write('Podaj element tablicy TAB[',i,', ',j,']: ');
readln(tab[i,j]);
licznik:= licznik + 1;
until (tab[i,j]>0);
end;
writeln;
end;
writeln('ilosc liczb odrzuconych w trakcie wczytywania: ',licznik);
-----------------------------------------------------------------------
//zliczenie elementow 0
ilosc_zer:= 0;
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]=0) then ilosc_zer:= ilosc_zer + 1;
writeln('ilosc elementow zerowych w tablicy: ',ilosc_zer);
-----------------------------------------------------------------------
//wybor najwiekszej z ustaleniem wiersza i kolumny
max:= tab[1,1];
for i:=1 to w do
for j:=1 to k do
if tab[i,j]>max then max:= tab[i,j];
writeln('element najwiekszy wynosi: ',max:7:2);
write('i wystepuje w tabeli na miejscach o indeksach: ');
for i:=1 to w do
for j:=1 to k do
if tab[i,j] = max then write(' [',i,' , ',j,'] ');
-----------------------------------------------------------------------
//iloczyn dwoch najmniejszych i wypisanie na srodku linii
min1:=tab[1,1];
for i:=1 to w do
for j:=1 to k do
if tab[i,j]<=min1 then
begin
min1:= tab[i,j];
i_min:= i;
j_min:= j;
end;
min2:=tab[1,2];
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]<min2)and(i<>i_min)or(j<>j_min) then min2:= tab[i,j];
writeln('iloczyn 2 najmniejszych: ');
write(' ':36);
writeln(min1*min2:8:2);
-----------------------------------------------------------------------
//ilosc ocen przewyzszajacych wartosc srednia
ilosc:= 0;
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]>srednia) then ilosc:= ilosc + 1;
writeln('ilosc elementow przewyzszajacych srednia ',ilosc);
-----------------------------------------------------------------------
//liczenie srednich wartosci w kolejnych wierszach
for i:=1 to w do
begin
suma_wiersza:= 0;
for j:=1 to k do suma_wiersza:= suma_wiersza + tab[i, j];
writeln('srednia wartosc ',i,' wiersza: ',suma_wiersza/k:7:2);
end;
-----------------------------------------------------------------------
//sumowanie z zakresu [0..7] i zliczanie osobno ujemnych oraz >7 i wypisanie w 2 i 4 linii po sumie
suma:= 0;
iloscuj:= 0;
ilosc:= 0;
for i:=1 to w do
for j:=1 to k do
if (tab[i,j]>=0)and(tab[i,j]<=7) then suma:= suma + tab[i,j]
else if tab[i,j]<0 then iloscuj:= iloscuj + 1
else ilosc:= ilosc + 1;
writeln('Suma elementow z przedzialu [0..7]: ',suma:5:2);
writeln;
writeln('ilosc elementow ujemnych: ',iloscuj);
writeln;
writeln('ilosc elementow wiekszych od 7: ',ilosc);