Информатика : зделайте на примере WallFromLeft . этих программ за 7 класс ​

using System;

using System.Linq;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           int[,] A = new int[5, 5];

           int i, j;

           int cnt = 0; // Количество нулевых элементов

           int sum = 0; // Сумма положительных элементов

           // Задаем матрицу A и сразу считаем сумму положительных элементов и количество нулевых

           Console.WriteLine("Введите матрицу A[5x5]: ");

           for (i = 0; i < 5; i++)

           {

               Console.Write("Введите ({0}) строку матрицы: ", i+1);

               // Следующая строка считывает из консоли строку, разделяет её по пробелам

               // Затем каждую подстроку переводит в целое число и приводит полученную коллекцию к типу массива.

               int[] numbers = Console.ReadLine().Split(' ').Select(s => int.Parse(s)).ToArray();

               for (j = 0; j < 5; j++)

               {

                   A[i, j] = numbers[j];

                   if (A[i, j] == 0) cnt++;

                   if (A[i, j] > 0) sum += A[i, j];

               }

           }

           // Выводим матрицу на экран:

           Console.WriteLine("\n\n\nМатрица A:");

           for (i = 0; i < 5; i++)

           {

               for (j = 0; j < 5; j++) Console.Write(A[i, j]+"\t");

               Console.WriteLine();

           }

           Console.WriteLine("Сумма положительных элементов: {0}", sum);

           Console.WriteLine("Количество нулевых элементов: {0}", cnt);

       }

   }

}

var

 menu, D, S: integer;

begin

 Writeln('Введите значение меню');

 Writeln('1 - известна большая диагональ');

 Writeln('2 - известна меньшая диагональ');

 Writeln('3 - Диагонали не известны');

 Readln(Menu);

 case menu of  

   1:  

     begin

       Writeln('Введите площадь и значение большей диагонали');

       Readln(s, d);

       Writeln('Длина меньше диагонали равна: ', (2 * s) / d)

     end;

   2:

     begin

       Writeln('Введите площадь и значение меньшей диагонали');

       Read(s, d);

       Writeln('Длина меньше диагонали равна: ', (2 * s) / d);

     end;

   3:

   Writeln('К сожалению волшебства не будет');

 end;

end.