Информатика

Каллимах

17 июля, 12:49

Сколько элементов массива будут иметь четное значение?

for n:=1 to 9 do

for k:=1 to 9 do

A[n, k]:=n+k

...

Что выведет данная программа?

Var k, m: integer;

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

Begin

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

Dat[3] : = 10; Dat[4] : = 5;

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

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

Dat[9] : = 6; Dat[10] : = 7;

m : = 0;

for k : = 1 to 10 do

if Dat[k] < 8 then m : = m + 1;

writeln (m)

End.