Информатика, вопрос задал merripopins82 , 7 лет назад

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

Ответы на вопрос

Ответил fedrfedr
0

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;

Ответил nikolaloskytov1
0
Сможете пожалуйста решить?
Ответил fedrfedr
0
Сейчас сделаю...
Ответил nikolaloskytov1
0
Ок, спасибо вам большое
Ответил fedrfedr
0
Решение добавил после ответа на 1-ю задачу.
Ответил nikolaloskytov1
0
Спасибо Вам большое!!! Дай Бог Вам здоровья
Новые вопросы