Var k,m : integer; Dat [1]:=12; Dat [2]:=15; Dat [3]:=17; Dat [4]:=15; Dat [5]:=14; Dat [6]:=12; Dat [7]:=10; Dat [8]:=13; Dat [9]:=14; Dat [10]:=15; m:=0; for k :=1 to 10 do if Dat [k]>12 then begin m:=Dat [k] end; writeln(m); End.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Var k,m : integer; Dat [1]:=12; Dat [2]:=15; Dat [3]:=17; Dat [4]:=15; Dat [5]:=14; Dat [6]:=12; Dat [7]:=10; Dat [8]:=13; Dat [9]:=14; Dat [10]:=15; m:=0; for k :=1 to 10 do if Dat [k]>12 then begin m:=Dat [k] end; writeln(m); End.» от пользователя Владимир Минаев в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.