проблема с массивом

[kommunist]

Здраствуйте товарищи программисты. у меня программа должна
заполнять матрицу случайными числами ю Матрица размером 3*4
но вместо того что бы вывести наэкран матрицу выводится одно число вместо матрицы вот код посмотрие пожайлуста и подскажите в чем дело:

 
program massiv;
var i,j:integer; {i stolbec}
matr: array[1..3,1..4] of integer;
begin
randomize;
for i:= 1 to 3 do
for j:= 1 to 4 do
matr[i,j]:= random(10);
writeln(matr[i,j]);
readln;
end.

С уважением kommunist.
используй теги для оформления кода.

[_Dmitry]

Матрица заполняется в цикле, так и печатать результаты нужно тоже в цикле.
Сейчас печатается matr[3,4]

[Alex21]

randomize;
  for i:= 1 to 3 do
  begin
    for j:= 1 to 4 do
    begin
      matr[i,j]:= random(10);
      write(matr[i,j],' ');
    end;
    Writeln(''); {переход на новую строку}
  end;
  readln;

i - строка
j - столбец

[_Dmitry]

Writeln(''), насколько помню и без скобок работает, как Writeln

[kommunist]

спасибо всем работает

[MariKa-91]

Помогите пожалуйста блок-схему сделать?!

Тема: «Двумерные массивы. Вложенные циклы»

В матрице с размерности (4*4) вычислить сумму произведений элементов каждой строки.

program matrica;
var
m:array[1..4,1..4] of integer;
i,j:integer;
stmp:real;s:real;
begin
s:=0;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=round(random30));
writeln(m[i,j]);
end;
end;
for i:=1 to 4 do
begin
stmp:=m[i,j];
for j:=2 to 4 do
begin
stmp:=m[i,j]*stmp;
end;
s:=s+stmp;
end;
writeln('s=',s);
readln;
end.

[DoDge_VipeR]

stmp:=m[i,j];

замените
на

stmp:=m[i,1];

[MariKa-91]

Спасибо)))