{
Eki olshemdi A[10,10] massiv berilgen. Massivtin arbir jolindagi elementterdin
kobeitindisine ten bolatin birolshemdi B[10] massivin alyndar.
Date 17.04.2011. Time 23:00. Rafa ;)
}
Uses crt;
const
N = 10;
M = 10;
type
Matrix = array[1..N,1..M] of integer;
Massiv = array[1..N] of longint;
var
A:Matrix;
B:Massiv;
i,j:integer;
begin
ClrScr;
randomize;
for i:=1 to N do
begin
B[i]:=1;
for j:=1 to M do
begin
A[i,j]:=random(5)+1;
GotoXY(j*2,i*1);
write(A[i,j]);
B[i]:=B[i]*A[i][j];
end;
GotoXY(j*3,i*1);
write('B[',i,']=',B[i]);
end;
readln;
end.
Нәтиже:
.
Егер де тағы сұрақтарыңыз болса қоя беріңідер, жауап беруге тырысамын Rafa!!!
