Поделитесь своими знаниями, ответьте на вопрос:
Мартышка-мама связала 111 своим непослушным детишкам по перчатке на каждую руку и ногу. но они порвали все свои перчатки, кроме младшего, который порвал только 11. сколько перчаток попадет маме в починку? ответ дайте в 10-й системе счисления.
var
m: array[1..12] of integer;
i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
m[i]:=random(41)+150; write(m[i],' ');
if m[i]>180 then k:=k+1;
end; writeln;
if k>0 then writeln('Такой ученик есть) else writeln('Такого ученика нет');
end.
program n;
var
m: array[1..12] of integer;
i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
m[i]:=random(41)+150; write(m[i],' ');
if m[i]<160 then k:=k+1;
end; writeln;
if k>0 then writeln(k,' ученик(ов/а) имеют рост меньше 160') else writeln('Учеников, рост которых меньше 160, нет');
end.