Delphi 7 Обработка данных в многомерных массивах.

[Alkifr]

1. Подсчитать количество одинаковых чисел под главной диагональю матрицы
2. Сформировать квадратную матрицу (N>4). Найти максимальный из отмеченных элементов.

[Grag]

По первой задаче: можно сформировать одномерный массив из поддиагональных элементов матрицы, отсортировать его и, начиная с первого элемента по предпоследний (во вновь созданном массиве) сравнивать два соседних элемента на равенство и подсчитывать это количество...

[Alkifr]

перебрать все под главной диагональю можно так?

for I := 0 to Length(MyArray) - 1 do
begin
for J: = 0 to I - 1 do
begin
MyArray[I][J] - как раз элемент под главной диагональю.
end;
end;

[Grag]

Пробуй, только учти, что
Функция Length ( S ): Integer;
Модуль: System
Описание
Функция возвращает фактическое количество символов в строке или количество элементов массива. Параметр S - выражение типа string или массив элементов.

[Alkifr]

не получается, может кто как по-другому подскажет?

[Alkifr]

Народ, помогите с решением этой задачки, плиз!!!

[Alkifr]

Никто что ли не знает, как решать эту задачу???

[kakawkin]

давай я попробую.
Я забыл что есть что главная диагональ (укажи как идет я напишу решение про одинаковые числа)

[Alkifr]

от а(00) до а(nn)

[kakawkin]

Program tt;
Uses Crt;

Var
X { Данный массив }
: array [1..256] of real;

y { Искомое число }
: real;

i, { Переменная цикла, индекс массива }
j, { Переменная цикла }
N, { Размер массива }
max, { Максимальное число повторов искомого числа }
S { Количество одинаковых чисел }
: integer;

Begin
ClrScr;

{
ввод массива
}
Write ('Сколько элементов в массиве: ');
ReadLn (N);
if N <= 1
then
begin
WriteLn;
WriteLn ('Решать задачу не имеет смысла...');
ReadLn;
Exit;
end;

WriteLn;
WriteLn ('Введите элементы массива: ');
for i := 1 to N do
begin
Write ('X [', i, '] = ');
ReadLn (X [i]);
end;
WriteLn;

{
просмотр элементов массива и подсчет одинаковых
}
max := 0;
S := 0;
for i := 1 to N - 1 do
begin
if S > max
then
begin
max := S;
y := X [i - 1];
end;
S := 1;
for j := i + 1 to N do
if X [i] = X [j]
then
S := S + 1;
end;

if S > max
then
begin
max := S;
y := X [j];
end;

{
печать результата
}
WriteLn;
WriteLn ('Число, повторяющееся максимальное число раз: ', y);
WriteLn ('Это число повторяется ', max, ' раз(а).');

ReadLn;
End.