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, num: integer; Dat: array [1 ... 10] of integer; begin Dat[1]:=7; Dat[2]:=-8; Dat[3]:=3; Dat[4]:=6; Dat[5]:=-4; Dat[6]:=3; Dat[7]:=5; Dat[8]:=-5; Dat[9]:=7; Dat[10]:=1; num:=1; m:=Dat[1];

Var k, m, day: integer; Dat: array[1 ... 7] of integer; Begin Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; day: = 1; m:=Dat[1]; for k:=2 to 7 do begin if Dat[k] < m then begin m:=Dat [k]; day:=k end end write (day) ;

Var k, m, day: integer; Dat: array[1 ... 10] of integer; Begin Dat[1] : = 2; Dat[2] : = 2; Dat[3] : = 3; Dat[4] : = 3; Dat[5] : = 2; Dat[6] : = 2; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 6; Dat[10] : = 6; day:=1; m : = Dat[1];

Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = 25; Dat[5] : = 26; Dat[6] : = 22; Dat[7] : = 24; Dat[8] : = 28; Dat[9] : = 26; Dat[10] : = 21; Dat[11] : = 27; m : = 0;

Задать массив и решить Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = 25; Dat[5] : = 26; Dat[6] : = 22; Dat[7] : = 24; Dat[8] : = 28; Dat[9] : = 26; Dat[10] : = 21; Dat[11] : = 27;