Решить задачу в среде VB , если можно, то с блок схемой.
В квадратной матрицы 3x3 , заполненной целыми числами, найти количество отрицательных элементов, сумму нечетных чисел и произведение элементов 2 столбца

На PascalABC.NET


program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer; 
begin 
  writeln ('Введите вес бандероли');
  readln (w);
  if w <= n
    then c:=10
    else  
       if w mod n = 0
          then c:=10+((w div n)-1)*5
          else c:=10+5+((w div n)-1)*5;
 
  d10:= c div 10;
  d4:= (c-10*d10) div 4;
  d1:= (c-d10*10-d4*4);
 
  writeln ('стоимость бандероли: ',c,' драхм');
  writeln;
  writeln ('для оплаты нужно не менее');
  writeln (d10:10,' монет по 10 драхм');
  writeln (d4:10,' монет по 4 драхмы');
  writeln (d1:10,' монет по 1 драхме');
end.    


Результат работы программы:

Введите вес бандероли     100

стоимость бандероли: 15 драхм

для оплаты нужно не менее
          1 монет по 10 драхм
          1 монет по 4 драхмы
          1 монет по 1 драхме

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication5
{
    class Program
    {
        static void Main(string[] args)
        {
            int m, n;
            Console.WriteLine("Введите число m");
            m = int.Parse(Console.ReadLine());
            Console.WriteLine("Введите число m");
            n = int.Parse(Console.ReadLine());

            int[,] mass = new int[m, n];

            int max = 0;
            for (int i = 0; i < m; i++)
            {
                for (int j = 0; j < n; j++)
                {
                    Console.WriteLine("Введите (" + i + "; " + j + ")-ый элемент");
                    mass[i, j] = int.Parse(Console.ReadLine());
                    if (i == 0 && j == 0)
                        max = mass[i, j];
                    else
                    {
                        if (mass[i, j] > max)
                            max = mass[i, j];
                    }
                }
            }

            Console.WriteLine("Maксимальный элемент равен " + max);
            Console.ReadKey();
        }
    }
}