Anonymní profil Tom – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Tom – Programujte.comAnonymní profil Tom – Programujte.com

 

Příspěvky odeslané z IP adresy 85.135.82.–

Tom
Pascal › Prosím o radu
25. 5. 2014   #190434

#3 miHan
Zatím mám jen toto, problém mám jak vyšíst součet prvního řádku.Díky za nakopnutí  

program matice_generovani;
  uses
    crt;
  var
    A:array[1..10,1..10] of integer;
    PocetM,PocetN,M,N,S,suma_prv,suma_pos:integer;
  begin
    clrscr;
    randomize;
                           {nacteni velikosti matice}
    write('Zadej pocet radku M a sloupcu N: ');
    read(PocetM,PocetN);

                             {naplnime prvky matice}
    for M:=1 to PocetM do
      for N:=1 to PocetN do

        A[M,N]:=random(100);    {vygenerujeme cisla od 0 do 99}

                                {tisk matice}
    writeln('Tisk naší MATICE');
    for M:=1 to PocetM do
      begin
        for N:=1 to PocetN do
          write(A[M,N]:8);
        writeln;
      end;

      suma_prv:=0;                       {prvni radek suma}
    writeln('Suma prvniho radku');
    for M:=1 to N do
      begin
       suma_prv:=suma_prv+A[M,N];

           writeln;
          end;
          write(suma_prv:2);

    suma_pos:=0;
     writeln;                   {posledni radek suma}
    writeln('Suma posledniho radku');
    for N:=1 to N do
      begin
       suma_pos:=suma_pos+A[M,N];

           writeln;
          end;
          write(suma_pos:0);

          if suma_prv>suma_pos
            then
          write('Prvni řádek je větší než poslední ':2)
      else write('Poslední řádek je větší než první!');
            writeln;

           readkey;
  end.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý