Question

Напишите программу,которая заполняет массив из 20 элементов случайным числами на отрезке [10,100] и считает число пар соселних элементов сумма которых делится на 3

Answer 1

var

 A: array [1..20] of Integer;

 i, c: Integer;

begin

   Randomize;

   Writeln ('Массив случайных чисел:');

   for i := 1 to 20 do begin

     A [i] := Random (90) + 10;

     Write (IntToStr (A [i]) + ' ');

   end;

   for i := 2 to 20 do begin

     if (A [i] + A [i - 1]) mod 3 = 0 then

       Inc (c);

   end;

   Writeln;

   Writeln ('Число пар соседних элементов, сумма которых делится на 3 = ' + IntToStr (c));

end;

// ----------------- решение второй задачи ------------------------

var

 A: array [1..200] of Integer;

 i, c, s: Integer;

begin

   Write ('Введите количество чисел в последовательности: ');

   ReadLn (c);

   if c > 200 then begin

     Writeln ('Выберите количество чисел меньше 200!');

     Exit;

   end;

   for i := 1 to c do begin

     Write ('Введите ' + IntToStr (i) + ' число: ');

     ReadLn (A [i]);

   end;

   s := 0;

   for i := 1 to c do begin

     if (A [i] >= 400) and (A [i] <= 499) then

       s := s + A [i];

   end;

   Writeln;

   Writeln ('Cумма 3-х значных чисел, начинающихся на 4 = ' + IntToStr (s));

end;