Проверочная работа по теме «Массивы»

1

2

3

4

5

6

Вариант 1

27

68

68

570

21

6

Вариант 2

7

41

19

10

14

5

Вариант 3

23

6

11

20

65

7

Вариант 4

27

38

30

17

45

4

Вариант 5

8

10

6

5

10

7

Begin

Tur[1]:= 1; Tur[2]:= 11; Tur[3]:= 8; Tur[4]:= 12; Tur[5]:= 5;    Tur[6]:= 6;  Tur[7]:= 15; Tur[8]:= 16; Tur[9]:= 16; Tur[10]:= 21; Tur[11]:= 7;

m := 0;

For k := 1 to 11 Do

If Tur[k] < 10 Then

Begin

m := m + Tur[k];

End;

Writeln(m);

End.

Begin

Tur[1]:= 1; Tur[2]:= 11; Tur[3]:= 8; Tur[4]:= 12; Tur[5]:= 5; Tur[6]:= 6; Tur[7]:= 15; Tur[8]:= 16; Tur[9]:= 16; Tur[10]:= 21; Tur[11]:= 7;

m := 0;

For k := 1 to 11 Do

If Tur[k] > 12 Then

Begin

m := m + Tur[k];

End;

Writeln(m);

End.

Begin

Ani[1]:= 17; Ani[2]:= 17; Ani[3]:= 19; Ani[4]:= 21; Ani[5]:= 23; Ani[6]:= 22;  Ani[7]:= 24; Ani[8]:= 16; Ani[9]:= 19; Ani[10]:= 21; Ani[11]:= 17; Ani[12]:= 17;

m := 0;

For k := 1 to 12 Do

If Ani[k] = 17 Then

Begin

m := m + Ani[k];

End;

Writeln(m);

End.

Begin

Sea[1]:= 170; Sea[2]:= 170;  Sea[3]:= 190; Sea[4]:= 210;  Sea[5]:= 230; Sea[6]:= 220; Sea[7]:= 240; Sea[8]:= 160; 

Sea[9]:= 190; Sea[10]:= 210;  Sea[11]:= 170; Sea[12]:= 170;

s := 100;

For k := 1 to 12 Do

If Sea[k] > 220 Then

Begin

s := s + Sea[k];

End;

Writeln(s);

End.

 Begin

Ves[1]:= 25; Ves[2]:= 21;  Ves[3]:= 23; Ves[4]:= 28;  Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28;  Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27;  Ves[13]:= 26; Ves[14]:= 24;

n := Ves[1];

For i := 1 to 14 Do

If Ves[i] < n Then

Begin

n : = Ves[i];

End;

Writeln(n);

End.

Begin

Dat[1] := 56; Dat[2] := 70; Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 22;  Dat[7] := 30; Dat[8] := 12;

Dat[9] := 65; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k] > 25 then

begin

m := m+1

end;

writeln(m);

End.

Begin

Ves[1]:= 25; Ves[2]:= 21;  Ves[3]:= 23; Ves[4]:= 28;  Ves[5]:= 30; Ves[6]:= 25;  Ves[7]:= 31; Ves[8]:= 28;  Ves[9]:= 25; Ves[10]:= 28;  Ves[11]:= 30; Ves[12]:= 27;  Ves[13]:= 26; Ves[14]:= 24;

n := 0;

For i := 1 to 14 Do

If Ves[i] > 26 Then

Begin

n : = n + 1;

End;

Writeln(n);

End.

Begin

Dat[1] := 16; Dat[2] := 20;  Dat[3] := 20; Dat[4] := 41;  Dat[5] := 14; Dat[6] := 21; Dat[7] := 28; Dat[8] := 12;   Dat[9] := 15;

 Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k]>m then

begin

m := Dat[k]

end;

writeln(m);

End.

Begin

Tok[1] := 10; Tok[2] := 14;  Tok[3] := 15; Tok[4] := 4;  Tok[5] := 12; Tok[6] := 6;  Tok[7] := 3; Tok[8] := 5;  Tok[9] := 5; Tok[10] := 10;

m := 22;

For k := 1 to 10 Do

If Tok[k] > 10 Then

Begin

m := m - 1;

End;

Writeln(m);

End.

Begin

Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4;  Tok[5] := 12; Tok[6] := 6; Tok[7] := 3; Tok[8] := 5;  Tok[9] := 5; Tok[10] := 10;

m := 0;

For k := 1 to 10 Do

If Tok[k] > 6 Then

Begin

m := m + 2;

End;

Writeln(m);

End.

 Begin

App[1] := 100; App[2] := 128; App[3] := 80; App[4] := 99; App[5] := 120; App[6] := 69;  App[7] := 55; App[8] := 115; App[9] := 84; App[10] := 111;  App[11] := 59; App[12] := 100;

m := 0;

For k := 1 to 12 Do

If App[k] > 100 Then

Begin

m := m + 1;

End;

m : = m + 10;

Writeln(m);

End.

Begin

Dat[1] := 56; Dat[2] := 70;  Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 22;  Dat[7] := 30; Dat[8] := 12;

Dat[9] := 65; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k] < 35 then

begin

m := m+1

end;

writeln(m);

End.

Begin

App[1] := 100; App[2] := 128;  App[3] := 80; App[4] := 99;  App[5] := 120; App[6] := 69;  App[7] := 55; App[8] := 115;  App[9] := 84; App[10] := 111;  App[11] := 59; App[12] := 100;

m := 0;

For k := 1 to 12 Do

If App[k] < 80 Then

Begin

m := m + 1;

End;

m : = m + 20;

Writeln(m);

End.

Begin

Dat[1] := 4; Dat[2] := 5;  Dat[3] := 4; Dat[4] := 3;   Dat[5] := 2;

Dat[6] := 3;  Dat[7] := 4; Dat[8] := 5;  Dat[9] := 5; Dat[10] := 3;

m := 0;

for k := 1 to 10 do

if Dat[k] > 3 then

begin

m := m + 1;

end;

writeln(m);

End.

Begin

Dat[1] := 4; Dat[2] := 5;  Dat[3] := 4; Dat[4] := 3;  Dat[5] := 2;

Dat[6] := 3; Dat[7] := 4; Dat[8] := 5;  Dat[9] := 5; Dat[10] := 3;

m := 0;

for k := 1 to 10 do

if Dat[k] < 4 then

begin

m := m + Dat[k];

end;

writeln(m);

End.

 Begin

b := 15;

Tem[1] := 22; Tem[2] := 25;  Tem[3] := 20; Tem[4] := 18;  Tem[5] := 16; Tem[6] := 14;  Tem[7] := 20; Tem[8] := 23;  Tem[9] := 17; Tem[10] := 19;  Tem[11] := 20; Tem[12] := 21;

For k := 1 to 12 Do

If Tem[k] < 20 Then

b := b + 1;

Writeln(b);

End.

 Begin

b := 0;

Tem[1] := 22; Tem[2] := 25;  Tem[3] := 20; Tem[4] := 18;  Tem[5] := 16; Tem[6] := 14;

Tem[7] := 20; Tem[8] := 23;  Tem[9] := 17; Tem[10] := 19;  Tem[11] := 20; Tem[12] := 21;

For k := 1 to 12 Do

If Tem[k] < 19 Then

b := b + Tem[k];

Writeln(b);

End.

Begin

Dat[1] := 16; Dat[2] := 20;  Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 21;  Dat[7] := 28; Dat[8] := 12;

Dat[9] := 15; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k] < 25 then

begin

m := m+1

end;

writeln(m);

End.

Begin

Flow[1] := 25; Flow[2] := 33;  Flow[3] := 45; Flow[4] := 56;  Flow[5] := 78; Flow[6] := 112;  Flow[7] := 120; Flow[8] := 133;  Flow[9] := 97; Flow[10] := 77;    Flow[11] := 59; Flow[12] := 34;

m := 23;

For k := 1 to 12 Do

If Flow[k] < 50 Then

Begin

m := m + 1;

End;

Writeln(m);

End.

Begin

Flow[1] := 25; Flow[2] := 33;  Flow[3] := 45; Flow[4] := 56;  Flow[5] := 78; Flow[6] := 112;  Flow[7] := 120; Flow[8] := 133;  Flow[9] := 97; Flow[10] := 77;  Flow[11] := 59; Flow[12] := 34;

m := 35;

For k := 1 to 12 Do

If Flow[k] > 100 Then

Begin

m := m + 1;

End;

Writeln(m);

End.

Begin

Lose[1] := 1; Lose[2] := 5;  Lose[3] := 3; Lose[4] := 6;  Lose[5] := 7; Lose[6] := 12;  Lose[7] := 1; Lose[8] := 3;  Lose[9] := 3; Lose[10] := 1;

m := 0;

For t := 1 to 10 Do

If Lose[t] > 3 Then

Begin

m := m + Lose[t];

End;

Writeln(m);

End.

 Begin

Lose[1] := 1; Lose[2] := 5;  Lose[3] := 3; Lose[4] := 6;  Lose[5] := 7; Lose[6] := 12;  Lose[7] := 1; Lose[8] := 3;  Lose[9] := 3; Lose[10] := 1;

m := 0;

For t := 1 to 10 Do

If Lose[t] < 6 Then

Begin

m := m + Lose[t];

End;

Writeln(m);

End.

begin

A[1]:=6; A[2]:=11;  A[3]:=7; A[4]:=12;  A[5]:=13; A[6]:=5;

A[7]:=9; A[8]:=3; A[9]:=4;

score:= 0;

for k:=1 to 9 do

begin

if A[k] >= 9 then

score:= score+A[k];

end;

write(score);

end.

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

m := 10; n: = 0;

for k := 1 to 10 do

if Dat[k] < m then

begin

m := Dat[k];

n := k

end;

writeln(n);

End.

 Begin

Dat[1] := 7; Dat[2] := 9;  Dat[3] := 10; Dat[4] := 5;  Dat[5] := 6;

Dat[6] := 7;  Dat[7] := 9; Dat[8] := 10;  Dat[9] := 6; Dat[10] := 9;

m := 0; n := 0;

for k := 1 to 10 do

if Dat[k] >= m then

begin

m := Dat[k]; n := k

end;

writeln(n)

End.

Begin

Tok[1] := 10; Tok[2] := 14;  Tok[3] := 15; Tok[4] := 4;  Tok[5] := 12; Tok[6] := 6; Tok[7] := 3; Tok[8] := 5;  Tok[9] := 5; Tok[10] := 10;

m := 0;

For k := 1 to 10 Do

If Tok[k] > 6 Then

Begin

m := m + 2;

End;

Writeln(m);

End.

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

begin

m := m + 1

end;

writeln(m)

End.

begin

Dat[1] := 14; Dat[2] := 10;  Dat[3] := 0; Dat[4] := 15;  Dat[5] := 0; Dat[6] := 15;

Dat[7] := 10;

day := 0;

for k := 1 to 7 do

if Dat[k] = 0 then

day := k;

write(day);

end.

 Begin

Dat[1] := 12; Dat[2] := 15;  Dat[3] := 17; Dat[4] := 15;  Dat[5] := 14; Dat[6] := 12;  Dat[7] := 10; Dat[8] := 13;  Dat[9] := 14; Dat[10] := 15;

m := 20;

for k := 1 to 10 do

if Dat[k] < m then

begin

m := Dat[k]

end;

writeln(m);

End.

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.