Сколько элементов массива будут иметь четное значение? 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.

]:=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.

Ответы:

Лера Воробьёва

05-05-2018 10:06

1)25+16=412)6 (6 элементов массива меньше 8)

Также наши пользователи интересуются:

Небольшое сообщение о жанре . They … the TV when I came in

Картинка с текстом вопроса от пользователя Arseniy Bikovec

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Сколько элементов массива будут иметь четное значение? for n:=1 to 9 do for k:=1 to 9 do A[n,k» от пользователя Arseniy Bikovec в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!