Информатика

Михайла

12 января, 04:18

Как найти произведение элементов 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;