паскаль! выручайте, друзья )

решить в паскале:
1.Задан двухмерный массив вещественных чисел.Найти его минимальное и максимальное значения.
2.Дана квадратная матрица вещественных чисел А,найти сумму элементов матрицы по ее диагоналям.a11 a12… a1n
a21 a22… a2n
… … … …
an1 an2… ann вот только это все, еще в скобочках...

всем заранее спасибо, срочно!=)

 

максимальное значение.матрица заполняется рандомно.

Code:

program Project2;

{$APPTYPE CONSOLE}

Const m = 3;
Var i,j,x,y : Integer;
    n : real;
    a : array [1..m, 1..m] of real;

begin

     randomize;
     for i := 1 to m do
     for j := 1 to m do
         a[i,j] := Random(50);

     for i := 1 to m do
     fegin
          for j := 1 to m do
              write ( A[I,J]:4:0 );
          writeLn;
     end;




     for i := 1 To m do
     for j := 1 To m do
         if n < a[i,j] then
         begin
              x := I;
              y := J;
              n := A[x,y];
         end;
     writeLn('max: ', N:4:2);
     readln;
End.

по аналогии найдешь min.

 

я тупой. напиши плиз, очень надо

 

Первая

Code:

program z1;

//размеры массива n*m
const n=10;
      m=10;
			
var i,j: integer; 
    A: array[1..n; 1..m] of real;
    min, max: real;

begin
	randomize;
	for i:=1 to n do
		for j:=1 to m do
			A[i,j]:=random(100)-50;
	max:=-50; min:=50;
	for i:=1 to n do
		for j:=1 to m do
			if (A[i,j]<min) then min:=A[i,j]
			else if (A[i,j]>max) then max:=A[i,j];
	writeln('max=', max, ' min=', min);
	readln;
end.

Вторая

Code:

program z2;

//размеры массива n*n
const n=10;
			
var i,j: integer; 
    A: array[1..n; 1..n] of real;
    sum: real;

begin
	randomize;
	for i:=1 to n do
		for j:=1 to m do
			A[i,j]:=random(100)-50;
	sum:=0;
	for i:=1 to n do
		sum:=sum+A[n,n];
	writeln('sum=', sum);
	readln;
end.

Писалось в блокноте, потому могут быть ошибки.
Ах, да, вывод массива прикрутишь сам.

 

спасибо парни =) респект

 

ты только начал ЯП учить??

 

это в институте задали, я вообще ЯП не понимаю