Question

Дан массив, заполненный случайными числами. Выделить сиреневым цветом элементы массива, значения которых больше введённого с клавиатуры числа K и кратны 5. Найти их сумма и количество. ​

Answer 1

===== PascalABC.NET =====

!!! Запускать комбинацией клавиш Shitf + F9 !!!

uses System;

begin

 var (n, k) := ReadInteger2('Задай длину массива и значение k:');

 var a := ArrRandom(n, -99, 99);

 var (s, m) := (0, 0);

 foreach var p in a do

 begin

   if (p > k) and (p mod 5 = 0) then

   begin

     Console.ForegroundColor := ConsoleColor.Magenta;

     s += p;

     m += 1

   end  

   else

     Console.ResetColor;

   Console.Write(p + ' ')

 end;

 Console.WriteLine;

 Console.ResetColor;

 Println('Сумма =', s, '   количество =', m)

end.