Question

Как найти произведение элементов 4 столбца? турбо паскаль program sbb; uses crt; var i,j,s: integer; a: array[1..5,1..10] of integer; begin for i: =1 to 5 do begin for j: =1 to 10 do begin random(50); a[i,j]: =random(50); write(' '); write(a[i,j]); end; writeln end;

Answer 1

s:=1;
for i:=1 to 5 do
 s:=s*a[i,4];

{в s произведение 4 столбца}