Var k, m: integer;

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

Begin

Dat[1] : = 20; Dat[2] : = 25;

Dat[3] : = 19; Dat[4] : = 25;

Dat[5] : = 26; Dat[6] : = 22;

Dat[7] : = 24; Dat[8] : = 28;

Dat[9] : = 26; Dat[10] : = 21;

Dat[11] : = 27;

m : = 0;

for k : = 1 to 11 do

if Dat[k] > 22 then

begin

m : = m + 1

end;

writeln (m)

End.

Question

Информатика

Аркадий

14 июля, 20:21

Var k, m: integer;

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

Begin

Dat[1] : = 20; Dat[2] : = 25;

Dat[3] : = 19; Dat[4] : = 25;

Dat[5] : = 26; Dat[6] : = 22;

Dat[7] : = 24; Dat[8] : = 28;

Dat[9] : = 26; Dat[10] : = 21;

Dat[11] : = 27;

m : = 0;

for k : = 1 to 11 do

if Dat[k] > 22 then

begin

m : = m + 1

end;

writeln (m)

End.

+3

Ответы (1)

Знаете ответ?

Прокоп · Answer 1

Здесь, видимо, нужно определить - что будет выведено на экран.

В начале программы задается массив, затем в цикле подсчитывается количество элементов массива > 22.

Анализируя массив, получаем, что m=7

Var k, m: integer;Dat: array[1 ... 11] of integer;BeginDat[1] : = 20; Dat[2] : = 25;Dat[3] : = 19; Dat[4] : = 25;Dat[5] : = 26; Dat[6] : = 22;Dat[7] : = 24; Dat[8] : = 28;Dat[9] : = 26; Dat[10] : = 21;Dat[11] : = 27;m : = 0;for k : = 1 to 11 doif Dat[k] > 22 thenbeginm : = m + 1end;writeln (m)End.