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

Question

Информатика

Евстафия

18 января, 21:12

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

+1

Ответы (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.