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;