Программы на паскаль,помогите,плиз.

[DjDeniels-61]

Программы на паскаль,помогите,плиз.

Пожалуйста решите задачку.
1) пусть А-двухмерный массивцелых чисел,разномерности N*N. Составить программу,которая нахолит номер максимального элемента массива и меняет максимальный элемент с первым.
2) Известны данные о массиве (в кг) и объеме (см-куб)20-ти предметов изготовленных из различных материалов. Определить максимальную плотность материала (без использования (третьего) массив).
Заранее огромное спасибо.

 

[Vladimir_S]

Пожалуйста решите задачку.
1) пусть А-двухмерный массивцелых чисел,разномерности N*N. Составить программу,которая нахолит номер максимального элемента массива и меняет максимальный элемент с первым.

CONST
N=8;
VAR
A:ARRAY[1..N,1..N] of INTEGER;
Amax, Amed, Imax, Jmax, i, j:INTEGER;
BEGIN
Randomize;
Amax:=-200;
FOR i:=1 TO N DO
FOR j:=1 TO N DO
BEGIN
A[i,j]:=Random(100)-50;
IF A[i,j]>Amax THEN
BEGIN
Amax:=A[i,j];
Imax:=i;
Jmax:=j;
END;
END;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO N DO
Write(A[i,j]:4);
Writeln;
END;
Writeln('Amax = A[',Imax:1,',',Jmax:1,'] = ',Amax:3);
Writeln;
Amed:=A[1,1];
A[1,1]:=Amax;
A[Imax,Jmax]:=Amed;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO N DO
Write(A[i,j]:4);
Writeln;
END;
Readln;
END.

 

[Vladimir_S]

Пожалуйста решите задачку.
2) Известны данные о массиве (в кг) и объеме (см-куб)20-ти предметов изготовленных из различных материалов. Определить максимальную плотность материала (без использования (третьего) массив).
Заранее огромное спасибо.

CONST
N=20;
VAR
M,V:ARRAY[1..N] of REAL;
ROmax:REAL;
i:INTEGER;
BEGIN
Randomize;
ROmax:=0;
FOR i:=1 TO N DO
BEGIN
M:=Random*10;
V:=(Random+0.001)*1000;
IF M/V>ROmax THEN ROmax:=M/V;
END;
Writeln('ROmax = ', ROmax:13:10,' kg/cm3');
Writeln;
Readln;
END.

 

[DjDeniels-61]

Спасибо огромное ввыручил!!!