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; writ...
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.
Гость
Ответ(ы) на вопрос:
Гость17
я полностью уверен в этом
Не нашли ответ?
Похожие вопросы