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

Question

Информатика

Петруша

16 октября, 14:35

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

+3

Ответы (1)

Знаете ответ на вопрос?

Екатерина · 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.