Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  m_toplam
Language: PASCAL
Code:
program matris_toplamı;
var
  i,j    : Byte;
  m:array [0..2;0:3] of byte;{initial value 0;}
begin
 
  for i:= 1 to 2 do begin 
      for j:=1 to 3 do begin
      {    m[i,j]:=" ";}
          write('matrisin  ', i);
          write('. satır ',j);
          write('. sütun değerini yazın:');
          read(m[i,j]);
          end;
       end; 
   for i:= 1 to 2 do begin 
      writeln;
      for j:=1 to 3 do begin 
         write(m[i,j]:5);
      end;
   end;
  Readln(a);
end.          
          
          
          
          
          
          
          
Comments: