Kód: Vybrať všetko

program matice;

uses crt;


const RIADKY = 3;
      STLPCE = 2;

var A, B, C : array [1..STLPCE, 1..RIADKY] of integer;
    i, j : integer;

begin
   clrscr;

   writeln('Zadajte prvky matice A po riadkoch : ');
   for i := 1 to STLPCE do
      for j := 1 to RIADKY do
         readln(A[i, j]);

   writeln;
   writeln('Zadajte prvky matice B po riadkoch : ');
   for i := 1 to STLPCE do
      for j := 1 to RIADKY do
         readln(B[i, j]);


   writeln;
   writeln('Vysledna matica C, ktora je suctom matic A a B je : ');
   for i := 1 to STLPCE do begin
      for j := 1 to RIADKY do begin
         C[i, j] := A[i, j] + B[i, j];
         write(C[i, j]:3);
      end;

      writeln;
   end;

   readln;
end.

Kód: Vybrať všetko

program matice;
uses crt;
const velkost=3;
var a,b,c:array[1..velkost,1..velkost] of integer;
    I,J:integer;
    matica:char;
begin
clrscr;
for matica:='a' to 'c' do begin
  for I:=1 to velkost do begin
      for J:=1 to velkost do begin
          case matica of
          'a': begin
               write('Zadaj hodnotu [',I,',',J,'] pre maticu ',matica,': ');
               readln(a[i,j]);
               end;
          'b': begin
               write('Zadaj hodnotu [',I,',',J,'] pre maticu ',matica,': ');
               readln(b[i,j]);
               end;
          'c': c[i,j]:=a[i,j]+b[i,j];
          end;
       end;
  end;
end;
clrscr;
writeln('Vysledna matica:');
for I:=1 to velkost do begin
    for J:=1 to velkost do begin
        write(c[i,j]:5);
    end;
    writeln;;
end;
repeat until keypressed;
end.