tat72220525
?>

вариант Нужен код программы Очень нужно​

Информатика

Ответы

Остап-Лаврова1410
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();
        }
    }
}
Виктория1690
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var s100:=Arr('','сто','двести','триста','четыреста','пятьсот',
    'шестьсот','семьсот','восемьсот','девятьсот');
  var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят',
    'шестьдесят','семьдесят','восемьдесят','девяносто');
  var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать',
    'пятнадцать','шестнадцать','семнадцать','восемнадцать',
    'девятнадцать');
  var s1:=Arr('','один','два','три','четыре','пять','шесть',
    'семь','восемь','девять');
  var n:=ReadInteger('Укажите трехзначное натуральное число');
  var s:=s100[n div 100];
  var n10:=(n div 10) mod 10;
  var n1:=n mod 10;
  case n10 of
  0:if n1>0 then s:=s+' '+s1[n1];
  1:if n1=0 then s:=s+' '+s10[1]
    else s:=s+' '+s11[n1];
  else begin
    s:=s+' '+s10[n10];
    if n1>0 then s:=s+' '+s1[n1]
    end
  end;
  Writeln(s)
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

вариант Нужен код программы Очень нужно​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Nikishina
Lesnova_Kiseleva730
konss2
Andreevich440
avdeevo
premiumoft
dimaaristov
des-32463
Ruzalina_Svetlana1435
tashovairina
Andrei-Shchukin
Galina-3639220565
aluka
info7
Викторович Попков