Задать вопрос
1 января, 07:47

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

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.

+4
Ответы (1)
  1. 1 января, 10:33
    0
    1) 25+16=41

    2) 6 (6 элементов массива меньше 8)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сколько элементов массива будут иметь четное значение? for n:=1 to 9 do for k:=1 to 9 do A[n, k]:=n+k ... Что выведет данная программа? Var ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы