Matice-absolutní neznalost – Pascal – Fórum – Programujte.com

Zdravím všechny, a zároveň prosím o radu. Jsem absolutní neználek programu Free Pascal a dostal jsem za úkol vytvořit tento program: Dvě matice 5x5 naplnit náhodnými čísly od 0-9 pomocí podprogramu, sečíst navzájem si odpovídající prvky z těchto matic a uložit je do třetí matice, všechny matice zobrazit. Byl bych nesmírně potěšen, jestli by se našel někdo, kdo by mi byl schopný pomoct.

#1 Maestro23
Prosím aspoň o postup tohoto řešení, snad to nějak dotáhnu do konce :/

#2 Maestro23
Co třeba takto:

var i,j,c: Integer;
    m1,m2,m3: array [1..5] of array [1..5] of Integer;
begin
  WriteLn(' --- Soucet odpovidajicich si prvku matic ---');
  WriteLn;
  Randomize;
  //naplneni matic m1,m2 a soucet odpovidajicich prvku v m3
  for i := 1 to 5 do
    for j := 1 to 5 do
    begin
      c := Random(10); //nahodne cislo od 0 do 9
      m1[i,j] := c;
      c := Random(10);
      m2[i,j] := c;
      m3[i,j] := m1[i,j]+m2[i,j];
    end;
  WriteLn;
  WriteLn(' matice 1:');
  //vypis matic m1
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write(m1[i,j]:2);
    WriteLn;
  end;
  WriteLn;
  WriteLn(' matice 2:');
  //vypis matic m2
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write(m2[i,j]:2);
    WriteLn;
  end;
  WriteLn;
  WriteLn(' matice 3:');
  //vypis matic m3
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write(m3[i,j]:3);
    WriteLn;
  end;
  //po stisknuti Enteru program skonci
  ReadLn;
end.

#3 Honzc
On  chtěl poradit, ne udělat... Ještě, že jsi mu tam nechal aspoň něco na práci, podle zadání to mělo být "pomocí podprogramu".

Já bych kromě podprogramu na naplnění matic určitě udělal i podprogram na výpis matice, vždyť se ty tři výpisy liší jen v drobnostech, které lze předat parametry...