Основы программирования

Контрольная работа №2

Вариант №2

 

Задание 1

Напишите программу вывода всех четных чисел от 2 до 100 включительно.

 

Program chisla;

Var i : integer

Begin

     Writeln (‘Четные числа от 2 до 100’);

     For i :=2 to 100 do

     Begin

          If  i mod 2 = 0 then write (i, ‘, ‘); {если остаток от деления числа i на 2 равен нулю, то это число четное, выводим его на экран}

    End;

     Readln;

End.

 

Задание 2

 Опишите, что получится  в результате выполнения программы?

Program Variant!; Const n=10;

Var D : Array[1..n] Of Integer;

i: Byte; p : Integer;

 Begin

p:=0;

For i:=l Ton Do Begin

D[i]:=-25+Random(51);

If D[i]<0 Then p:=p+D[i];

End;

Writeln(p);

End.

 

Задание 3

 Известно количество деталей, произведенных каждым из 40-ка рабочих. Сколько рабочих имеют производительность ниже средней?

 

Program proizvoditelnost;

Const n=40; {количество рабочих}

Var R : array [l..n] of integer;

         i, s, rez: inteer;

         sred : real;

begin

    s:=0;

    for i:=1 to n do

         begin

             R [i] :=random (101); {заполнение массива, содержащего количества деталей, произведенных каждым рабочим целыми числами в пределах от 1 до 100}