Размер писем будет увеличиваться в 2 раза и уменьшаться тоже в 2 раза
Почта, телеграф, телефон, семафорная азбука, сигнальные огни
Program programma;
uses crt;
var i,j,m, n, k: integer;
a:array [1..100, 1..100] of integer;
begin clrscr;
randomize;
write('N = '); readln(n);
write('M = '); readln(m);
for i:=1 to n do
begin
for j:= 1 to m do
a[i,j]:=random(50);
end;
writeln;
k:=0;
for i:=1 to n do
begin
for j:= 1 to m do
write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:= 1 to m-1 do
if (a[i,j]<=a[i,j+1]) then k:=k+1;
writeln;
if (k=m-1) then writeln ('Номер строки: ', i);
k:=0;
end;
end.
using System;
using System.Linq;
using static System.Console;
class Program
{
static void Main()
{
int x=int.Parse(ReadLine());
var t=x.ToString().Select(n=>(int)n).Reverse().ToList();
WriteLine((t.FindIndex(n=>n==t.Max())+1).ToString());
}
}