Какое число получится в результате работы данной программы? program 'm';
var k,m: integer
B: array[1..10] of integer;
begin
B:=7; B[2]:=9;
B[3]:=10; B[4]:=5;
B[5]:=6; B[6]:=7;
B[7]:=9; B[8]:=8;
B[9]:=6; B[10]:=7;
m:=0
for k:=1 to 10 do
if B[k]<8 then begin
m:=m+1
end;
writeln(m);
End.

Aixerel    2   29.11.2020 10:30    1