Паскаль (матрицы)

[Apple_Jack]

1. Для каждой строки матрицы a(5,3) определить сумму и произведение элементов и вывести их на экран.

2. В матрице b(3,4) найти минимальный элемент и вывести на печать номер столбца, в котором он находится.

никак не получается помогите пожалуйста

[skad0]

var
a: array[1..5,1..3] of integer;
b: array[1..3,1..4] of integer;
i,j,p,s,min,st:integer;
begin
{Тут организуй ввод элементов}

for i:=1 to 5 do begin
  s:=0;
  p:=1;
  for j:=1 to 3 do begin
    s:=s+a[i,j];
    p:=p*a[i,j]
  end;
  writeln('summ = ',s);
  writeln('comp = ',p);
end;

min:=b[1,1];
for i:=1 to 3 do
  for j:=1 to 4 do
    if (min>b[i,j]) then  begin min:=b[i,j]; st:=j; end;
writeln('MIN = ',min,' st = ',st);
end.

Как-то так.

[Apple_Jack]

сделал аналогично но ток с вводом как, не могу догнать????
плиз

[skad0]

for i:=1 to 5 do
  for j:=1 to 3 do
    read(a[i,j]);

for i:=1 to 3 do
  for j:=1 to 4 do
    read(b[i,j]);

Ты так экзамен не сдашь. Попробуй хоть разобраться

[Apple_Jack]

согласен, все задания сделал кроме матриц
спасибо тебе, ща еще попрактикуюсь