Задан двумерный массив A из 5-ти строк и 2-х столбцов.Составить программу,которая формирует одномерный массив В,каждый элемент которого есть произведение элементов массива A в строке.

огромное спасибо!

отметь как лучшее решение(вот это будет по настоящему спасибо)

просто мне нехватает 5 лучих реш. до нового уровня

program gt;var a:array[1..5,1..5]of integer;b:array[1..5]of integer;s,i,j:integer;beginfor i:=1 to 2 dobegins:=1;for j:=1 to 5 dobeginread(a[i,j]);s:=s*a[i,j];end;b[i]:=s;end;for i:=1 to 5 dowrite(b[i],' ');end.