помогите с массивами

[lg12]

требуется заполнить массив случайными числами и вывести на экран ТАБЛИЦЕЙ. что то не получается(
вот мой код

uses crt;
var a:array[0..10,0..10] of integer;
n,m,i,j:integer;
begin
clrscr;
write('n=');
readln(n);
write('m=');
readln(m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:2);
writeln;
readln;
end;
end;
end.

сделать надо на паскале

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:2);
end;
writeln;
end;

вот так надо вроде

[LeBron]

попытка близкая к правильной. Ваша ошибка - вот здесь:

for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:2);
writeln;
readln;
end;
end;

в цикле, который вложен, выполняется кроме присвоения и вывода еще и вывод переноса сосчитыванием. Не знаю, что конкретно Вы хотите получить в итоге, наверно правильнее будет

for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:2);
end;writeln;
end;readln;

то есть выносим перенос с внутреннего цикла - он должен исполнятся раз на строку, а не каждый раз. И выносим "изображение результата" в самый конец кода

маленькое замечание - еще одна ошибка в

write(a[i,j]:2);

если число меньше 10, то все хорошо. Но если рэндом генерит число больше (например, 14), то числа выводятся на 2 позициях при длине 2 - и слипаются, поставьте

write(a[i,j]:3);

или

write(a[i,j],' ');

[lg12]

не могу понять суть, подскажите:
Даны две матрицы MxN. Получить новую матрицу умножением элементов каждой строки первой матрицы суммой элементов соответствующих строк второй матрицы.
например у меня матрицы такие:
2 3 4 -- 1 2 3
5 6 7 --4 1 2
1 2 1 --2 1 1
какая матрица получиться

[netrino]

Всё просто - берём первую строку первой матрицы, и каждый её элемент множим на сумму всех элементов первой же строки второй матрицы. И так со всеми )
Для
2 3 4 -- 1 2 3
5 6 7 --4 1 2
1 2 1 --2 1 1
результатом будет
12 18 24 так как 1+2+3 = 6
35 42 49
4 8 4

[lg12]

вот код

uses crt;
var a:array[0..10,0..10] of integer;
n,m,i,j,m1,n1:integer;
s:array[0..100] of integer;
begin
clrscr;
write('n=');
readln(n);
write('m=');
readln(m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
readln;
end;
readln;
write('____________');
readln;
write('n1=');
readln(n1);
write('m1=');
readln(m1);
randomize;
for i:=1 to n1 do
begin
for j:=1 to m1 do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
readln;
end;
for j:=1 to n1 do
s[1]:=s[1]+a[1,j];
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
end.
я посчитал сумму 2 строки. нужно умножить на каждый элемент 1 столбца(условие выше) и записать в матрицу и вывести :( подскажите