DjDeniels-61

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

Vladimir_S

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

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[i]:=Random*10;
V[i]:=(Random+0.001)*1000;
IF M[i]/V[i]>ROmax THEN ROmax:=M[i]/V[i];
END;
Writeln('ROmax = ', ROmax:13:10,' kg/cm3');
Writeln;
Readln;
END.

DjDeniels-61

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