Anonymní profil Petr – Programujte.com

Ahoj, v Pascalu začínám - cca 2 měs. zkouším si jednodušší příklady a nyní jsem narazil na něco ohledně prvočísel. Kdo by mi pomohl, byl bych moc vděčný, až to tu bude někdo číst, tak třeba to pomůže i ostatním, co s tím mají problém.

Zadání - Napište program, který naplní matici velikosti 10 x 10 náhodnými celými čísly z intervalu <1, 9> a spočítá počet prvočísel, která se v ní nacházejí.

Program modifikujte tak, aby si pamatoval pozice těchto prvočísel (např. použitím další matice).

Matici jsem zvládnul, počítá pouze s hodnotami 1-9, má stanovený počet sloupců, počet řádků. Poradí mi někdo, jak dále ?

Můj program -

const n=20;
type pole=array [1..n] of integer;
var
   i:integer;
   cisla:pole;
   zmena:boolean;

procedure prohod(var x,y: integer);
var p:integer;
begin
   if x>y then begin
    p:=y;
    y:=x;
    x:=p;
    zmena:=true;
   end;
end;

procedure trid;
  var j:integer;
  begin
   repeat
    zmena:=false;
    for j:=1 to (n-1) do prohod(cisla[j],cisla[j+1]);
   until zmena=false;
  end;

begin

  for i:=1 to n do
   begin
    cisla[i]:=random(100);
    write(cisla[i]:4);
   end;

  trid;
  writeln;
  writeln;
  for i:=1 to n do write(cisla[i]:4); {vypis cisel}
   writeln;
  writeln;
end.