Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.