Массивы данных

[Фарфор]

Массивы данных

Здрасте!! Умоляю Вас помочь!! Кто как сможет!!! ПРОШУ!!!

* Заполните одномерный массив произведениями элементов строк заданного двумерного массива и введите его на экран. Найдите сумму этих произедений.


* Дан произвольный двумерный массив. Занести в другой двумерный массив в каждую строку следующую информаию о повторяющихся элементах: на перве место сам элемент, далее двузначные числа, первая цифракоторых яавлятся индексом строки, вторая индексом - индексом столбца всех совпадающих элементов.



** Построить и вывести на экрн "латинский" квадрат - таблицу, состояющю из n различных чисе, всех по n раз расположенных так, что в каждой сттоке и столбце каждое число встречается тольк один раз.


ПОМОГИТЕ!!! ОЧЕНЬ ПРОШУ!!! СРОЧНО НУЖНО!! УМОЛЯЮ!!

 

[Vladimir_S]

Здрасте!! Умоляю Вас помочь!! Кто как сможет!!! ПРОШУ!!!

* Заполните одномерный массив произведениями элементов строк заданного двумерного массива и введите его на экран. Найдите сумму этих произведений.

CONST
N=7;
M=3;
VAR
A:ARRAY[1..N,1..M] of REAL;
P:ARRAY[1..M] of REAL;
i,j:INTEGER;
SUM:REAL;
BEGIN
FOR i:=1 TO N DO
FOR j:=1 TO M DO
BEGIN
Write('a[',i,',',j,'] = '); ReadLn(A[i,j]);
END;
SUM:=0;
FOR i:=1 TO N DO
BEGIN
P:=1;
FOR j:=1 TO M DO
P:=P*A[i,j];
SUM:=SUM+P;
END;
FOR i:=1 TO N DO
WriteLn('P[',i,'] = ',P);
WriteLn('SUM = ',SUM);
END.

* Дан произвольный двумерный массив. Занести в другой двумерный массив в каждую строку следующую информаию о повторяющихся элементах: на перве место сам элемент, далее двузначные числа, первая цифракоторых яавлятся индексом строки, вторая индексом - индексом столбца всех совпадающих элементов.

Извините - полный сумбур. Ничего не понял.

** Построить и вывести на экрн "латинский" квадрат - таблицу, состояющю из n различных чисе, всех по n раз расположенных так, что в каждой сттоке и столбце каждое число встречается тольк один раз.

Сложная комбинаторная задача. "Быстро" и "срочно" - не решается. Если, конечно, нет готового алгоритма.

Впрочем, насчет простейшего "латинского" квадрата сообразил. Вот:

CONST
N=9;
VAR
i,j,k:INTEGER;
A:ARRAY[1..N,1..N] of INTEGER;
BEGIN
FOR i:=1 TO N DO
FOR j:=i TO N DO
A[i,j]:=j-i+1;
FOR i:=2 TO N DO
FOR j:=1 TO i-1 DO
A[i,j]:=N-i+j+1;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO N DO
Write(A[i,j]:2);
WriteLn;
END;
ReadLn;
END.

 

[Фарфор]

*Vladimir_S* ОГРОМНОЕ Вам СПАСИБО!!!!!
Вы меня просто спасли!! Безграниц благодарна!!!

 

[Vladimir_S]

*Vladimir_S* ОГРОМНОЕ Вам СПАСИБО!!!!!
Вы меня просто спасли!! Безграниц благодарна!!!

Пожалуйста.
Да, сейчас заметил - в первой программе перед конечным "END." воткните ReadLn; - тогда остановится, покажет результат и выскочит только при нажатии "Enter".

 

[Фарфор]

*Vladimir_S* Спасибо!!!