Сколько элементов массива будут иметь четное значение? 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] :...
Сколько элементов массива будут иметь четное значение?
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.
Гость
Ответ(ы) на вопрос:
Гость1)25+16=41
2)6 (6 элементов массива меньше 8)
Не нашли ответ?
Похожие вопросы