// Привет дедам
const M = 5;
const N = 12;
var matrix: array [1..M, 1..n] of integer;
var i, j, count: integer;
begin
for i := 1 to M do
begin
for j := 1 to N do
begin
matrix[i, j] := random(-98, 54);
write(matrix[i, j]:4);
end;
writeln();
end;
writeln();
writeln('Кол-во четных элементов: ');
for j := 1 to N do
begin
count := 0;
for i := 1 to M do
begin
if matrix[i, j] mod 2 = 0 then
inc(count);
end;
write(count:4);
end;
end.
Если это задали в школе/университете, то это очень странно. Предоставленная строка может быть случайной, а может быть хэш-суммой. Длина суммы — 128 бит. Популярные хэш-функции с такой длиной — MD2, MD4, MD5. И исходную строку получить очень проблематично. Так что лучше забыть про эту строку. Для поиска значения может " " перебор (нет), либо поиск по базе уже найденных значений хэш-функций (я поискал в бесплатных онлайн базах, но положительного результата не получил). На этом, как бы, мои полномочия все.
