Массивы и усл. оператор

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

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] > m then

begin

m := Dat[k];

end;

writeln(m);

End.

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

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 := m + 1;

end;

writeln(m);

End.

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 56; Dat[2] := 70;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 22;

Dat[7] := 30; Dat[8] := 12;

Dat[9] := 65; Dat[10] := 35;

m := 100;

for k := 1 to 10 do

if Dat[k] < m then

begin

m := Dat[k];

end;

writeln(m);

End.

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 56; Dat[2] := 70;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 22;

Dat[7] := 30; Dat[8] := 12;

Dat[9] := 65; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k] > m then

begin

m := Dat[k];

end;

writeln(m);

End.

Var k, m, term: integer;

Dat: array[1..8] of integer;

Begin

Dat[1] := 7; Dat[2] := 7;

Dat[3] := 6; Dat[4] := 8;

Dat[5] := 4; Dat[6] := 5;

Dat[7] := 4; Dat[8] := 7;

m := Dat[1];

term := 1;

for k := 2 to 8 do

if Dat[k] < m then

begin

m := Dat[k];

term := k;

end;

writeln(term);

End.

Var k, m, month: integer;

Dat: array[1..12] of integer;

Begin

Dat[1] := 5; Dat[2] := 5;

Dat[3] := 6; Dat[4] := 8;

Dat[5] := 4; Dat[6] := 5;

Dat[7] := 4; Dat[8] := 7;

Dat[9] := 4; Dat[10] := 4;

Dat[11] := 8; Dat[12] := 7;

m := Dat[1];

month := 1;

for k := 2 to 12 do

if Dat[k] <= m then

begin

m := Dat[k];

month := k;

end;

writeln(month);

End.

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

if Dat[k] < m then

begin

day := k;

m := Dat[k];

end;

writeln(day);

End.

var s, k: integer;

begin

readln(s);

readln(k);

if s <= 2 * k

then writeln ('ДА')

else writeln ('НЕТ')

end.

(1, 2); (8, 4); (6, −12); (−5, −5); (3, 11); (—10, 12); (—10, −2); (4, 1); (2, 5).

Сколько было запусков, при которых программа напечатала «ДА»?

var s, k: integer;

begin

readln(s);

readln(k);

if s div 2 = k

then writeln ('ДА')

else writeln ('НЕТ')

end.

(1, 1); (8, 4); (14, 10); (20, 1); (7, 3); (10, 5); (10, 2); (4, 1); (1, 0).

Сколько было запусков, при которых программа напечатала «НЕТ»?