Pascal Дан массив, содержащий 20 положительных целых чисел, не превышающих 30 000. Необходимо найти в этом массиве количество элементов, которые кратны 3, а их десятичная запись заканчивается цифрой 1, и заменить каждый из таких элементов на это количество. Напишите программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов 15 71 21 111 41 программа должна вывести (по одному числу в строке) числа 15 71 2 2 41.

using System;

namespace ConsoleApp5

{

   class Program

   {

       static void Main(string[] args)

       {

           bool f;

           double a,b,c, s, s1;

           a = double.Parse(Console.ReadLine());

           b = double.Parse(Console.ReadLine());

           c = double.Parse(Console.ReadLine());

           s = Math.Sqrt(((a + b + c) / 2) * (((a + b + c) / 2) - a) * (((a + b + c) / 2) - b) * (((a + b + c) / 2) - c));

           a = double.Parse(Console.ReadLine());

           b = double.Parse(Console.ReadLine());

           c = double.Parse(Console.ReadLine());

           s1= Math.Sqrt(((a + b + c) / 2) * (((a + b + c) / 2) - a) * (((a + b + c) / 2) - b) * (((a + b + c) / 2) - c));

           if (s == s1)

               f = true;

           else

               f = false;

           Console.WriteLine(f);

           Console.ReadKey();

       }

   }

}