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.

Question

Маина

30 августа, 09:24

+4

Ответы (1)

Знаете ответ на вопрос?

Вена · Answer 1

Вена 30 августа, 12:45

0

17

я полностью уверен в этом

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 doif Dat [k]>12 thenbeginm:=Dat [k]end;writeln (m) ;End.