-Użyć procedury! Wczytać macierz 4x4. Ładnie wypisać. Następnie znaleźć wiersz lub kolumnę w której różnica między największym a najmniejszym elementem będzie najmniejsza. I wskazać ją.
Kompletnie nie wiem jak się zabrać za ten program. Znalazłem już coś takiego:
Kod: Zaznacz cały
PROGRAM macierze;
uses crt;
const
max = 100; {maksymalna wielkosc tablicy}
type
tablica = array [1..max,1..max] of integer;
var
m,n : integer;
A,B,C : tablica;
Procedure wczytaj_tablice ( var tab : tablica );
var
i,j : integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
write('Podaj wartosc w polu [',i,',',j,'] : ');
readln(tab[i,j]);
end;
end; { of procedure }
Procedure wyswietl_tablice ( var tab : tablica );
var
i,j : integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
write(tab[i,j]:4);
writeln;
end;
end; {of procedure}
Procedure dodaj ( t1, t2 : tablica; var tab: tablica );
var
i,j : integer;
begin
for i:=1 to m do
for j:=1 to n do
tab[i,j]:=t1[i,j]+t2[i,j];
end; {of procedure}
BEGIN
clrscr;
writeln('=====================================================================');
writeln('Program wczytuje tablice o podanych rozmiarach i wypisuje ja na ekran');
writeln('=====================================================================');
writeln;
writeln('Uwaga! Ilosc wierszy i kolumn nie moze byc > 100 ! ');
writeln;
write('Podaj ilosc wierszy : ');readln(m);
write('Podaj ilosc kolumn : ');readln(n);
wczytaj_tablice(A);
wyswietl_tablice(A);
wczytaj_tablice(B);
wyswietl_tablice(B);
dodaj(A,B,C);
wyswietl_tablice(C);
repeat until keypressed;
END.