Проверочная работа по определению результата работы линейного массива
материал для подготовки к егэ (гиа) по информатике и икт (9 класс) на тему

Вариант-1

1. В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т.д.). Определите, что будет напечатано в результате работы следующей программы.

Var k, n: 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]:=9;  Dat[10]:=9;

  n:=0;

  for k:=1 to 10 do

    if  Dat[k] < 8 then

      n:=n+1;

  writeln(n)

       End.

№2. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т.д.). Определите, что будет напечатано в результате работы следующей программы.

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] > m then

       m:= Dat[k];

  writeln(m)

End.

3. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т.д.). Определите, что будет напечатано в результате работы следующей программы.

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]:=23;

  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] < 23 then

        m:=m + Dat[k];

  writeln(m)

       End.

4. В таблице Ball хранятся отметки по контрольной работе (Ball[1] – отметка 1 ученика, Ball[2] – отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующего алгоритма.

Var k, c: integer;
Ball:array[1..10] of integer;
Begin
  c:=0;
  Ball[1]:=4; Ball[2]:=5;
  Ball[3]:=3; Ball[4]:=4;
  Ball[5]:=2; Ball[6]:=5;
  Ball[7]:=4; Ball[8]:=3;
  Ball[9]:=4; Ball[10]:=5;
  for k:=1 to 10 do 
    if Ball[k] =4 then 
       c:=c+1;
  write(c);
End.

Вариант-2

1. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т.д.). Определите, что будет напечатано в результате работы следующей программы.

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] > 24 then

        m:=m+1;

  writeln(m)

End.

2. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т.д.). Определите, что будет напечатано в результате работы следующей программы.

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:=30;

  for k:=1 to 11 do

    if  Dat[k] < m then

       m:= Dat[k];

  writeln(m)

        End.

3. В таблице Ball хранятся отметки по контрольной работе (Ball[1] – отметка 1 ученика, Ball[2] – отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующего алгоритма.

Var k, c: integer;
Ball:array[1..10] of integer;
Begin
  c:=0;
  Ball[1]:=4; Ball[2]:=5;
  Ball[3]:=3; Ball[4]:=4;
  Ball[5]:=2; Ball[6]:=5;
  Ball[7]:=4; Ball[8]:=3;
  Ball[9]:=4; Ball[10]:=5;
  for k:=1 to 10 do 
    if Ball[k] >4 then 
       c:=c+ Ball[k];
  write(c);
End.

4. В таблице Ball хранятся отметки по контрольной работе (Ball[1] – отметка 1 ученика, Ball[2] – отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующего алгоритма.

Var k, c: integer;
Ball:array[1..10] of integer;
Begin
  c:=0;
  Ball[1]:=4; Ball[2]:=5;
  Ball[3]:=4; Ball[4]:=4;
  Ball[5]:=2; Ball[6]:=5;
  Ball[7]:=4; Ball[8]:=3;
  Ball[9]:=4; Ball[10]:=5;
  for k:=1 to 10 do 
    if Ball[k] <>4 then 
       c:=c+1;
  write(c);
End.