Рассчитать количество свободных мест в 4 ряду кинотеатра по матрице 10х6 числа выбрать...

Question

Рассчитать количество свободных мест в 4 ряду кинотеатра по матрице 10х6 числа выбрать рандомом(паскаль)

Answer 1

Var ma:array[1..10,1..6] of integer;
i,j,k:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
 begin;
  writeln;
   for j:=1 to 6 do
    begin;
     ma[i,j]:=random(2);
     write(ma[i,j]:4);
    end;
 end;
for j:=1 to 6 do
 begin;
  i:=4;
  if ma[i,j]=0 then inc(k);
 end;
writeln;
write('Result:',k);
end.

Comments

спасибо