program Project1;
var
S : String;
K, Num1, Num2 : Integer;
begin
repeat
Writeln('Задайте целое число:');
Readln(K);
S := 'Мы собрали ' + IntToStr(K) + ' ';
Num1 := K mod 10;
K := K div 10;
Num2 := K mod 10;
case Num1 of
1 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриб';
end;
2..4 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриба';
end;
else
S := S + 'грибов';
end;
S := S + ' в лесу.';
Writeln('Результат:');
Writeln(S);
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Readln(S);
until S <> '';
end
using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int n,i,j, imin = 0;
double sum = 0;
Console.Write("Введите n: ");
n = Convert.ToInt32(Console.ReadLine());
double[,] A = new double[n, n];
Random r = new Random();
for (i = 0; i < n; i++)
{
for (j = 0; j < n; j++)
{
A[i, j] = r.NextDouble()*100 - 50;
Console.Write("{0,10:0.0}", A[i, j]);
if (A[i, j] < A[imin / 10, imin % 10]) imin = i * 10 + j;
}
Console.WriteLine();
}
i = imin / 10;
for (j = 0; j < n; j++) sum += A[i, j];
Console.WriteLine("Сумма элементов строки с наименьшим значением: {0,10:0.0}", sum);
}
}
}