Naplnění matice čísly

6. listopadu 2007 v 20:06 |  INFORMATIKA
Program pro naplnění matice prvky(čísly).Jeden z příkladů Ing.Pavlíkové z teorie Informatiky I.
program naplnanimatice ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var m,n,i,j,d:integer;
a:array[1..50,1..50]of integer;
begin
writeln;
writeln(' NAPLNENI MATICE');
writeln;
writeln;
write('Zadej pocet radku,pocet sloupcu: ');
read(m,n);
writeln;
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Zadej A[',I,',',J,']= ');
read(a[i,j])
end;
end;
writeln;
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(A[i,j]:3);
writeln;
end;
readln;
readln;
end.
 

Buď první, kdo ohodnotí tento článek.

Nový komentář

Přihlásit se
  Ještě nemáte vlastní web? Můžete si jej zdarma založit na Blog.cz.
 

Aktuální články

Reklama