//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, 0, 10);
println(a);
var d := new System.Collections.Generic.Dictionary<integer, integer>();
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
begin
if d.ContainsKey(a[i, j]) then
d[a[i, j]] += 1
else
d.Add(a[i, j], 1);
end;
var p := d.OrderByDescending(x -> x.Value).First();
println('Чаще всего встречается ' + p.Key + ', ' + p.Value + ' раз');
end.
Program test;
Var
a:string;
Begin
Write('Введите ваше имя: ');
Readln(a);
Writeln(' Привет ', a);
End.
1. Отсканированный текст является растровым изображением, а не текстовым документом.
2. Для распознавания текста необходимо найти на изображении характерные признаки текста (символов) и интерпретировать их в строки.
В Worde:
Клавишей "Enter" в конце строки, чтобы создать новую строку.
Клавишей "Backspace" в конце пустой строки, чтобы удалить строку.
Клавишей "Delete" в начале пустой строки, чтобы удалить строку.