Задание

Выберите фрагмент программы, в котором происходит работа с одномерным массивом:

var

Dat: array[0..4] of integer = (12, 15, 17, 15, 14);

m, k: integer;

begin

m := 0;

for k := 0 to 4 do

begin

if Dat[k] >= 14 then

m := m + 1;

end;

writeln(m);

end.

var

Dat: array[0..4] of integer = [12, 15, 17, 15, 14];

s, k: integer;

begin

s := 0;

for k := 0 to 4 do

begin

s := s + 1;

end;

writeln(s);

end.

var

Dat1, Dat2, Dat3, Dat4, Dat5, m: integer;

begin

Dat1 := 12;

Dat2 := 15;

Dat3 := 17;

Dat4 := 15;

Dat5 := 14;

m := 0;

if Dat1 >= 14 then

m := m + 1;

writeln(m);

end.