решить Информатика, 10 класс.

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);

       }

   }

}

(см. объяснение)

Объяснение:

Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.

Задание №1:

program task1;

var a: array [1..7] of integer;

   i,k: integer;

begin

 randomize;

 k:= 0;

 for i:= 1 to 7

   do begin

       a[i]:= random(50)-1;

       if(a[i] mod 3 = 0) then a[i]:= 0

       else if(a[i] = 7) then k:= k+1;

      end;

 write('Массив с замененными числами: ');

 println(a);

 writeln('Количество элементов, равных 7: ', k);

end.

Задание №2:

begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.