Матрица

[BlonDino4Ka]

Ребят задачка не для мозгов блондинки,может поможете кто знает

[Greblin]

var M: array[1..7,1..10] of real;
     min, max, res: real;
     i, j: integer;
...
min := M[1,1]; max := M[1,1];
for i := 1 to 7 do
  for j := 1 to 10 do
    if M[i, j] < min then min := M[i, j]
    else if M[i, j] > max then max := M[i, j];
res := (min + max) / 2;

С задачей оформления этого в виде полной программы и написания ввода матрицы с клавиатуры мозги блондинки должны справиться :-)

[Tkirill]

uses crt;
var
mas:array[1..7,1..10] of integer;
i,j,max,min:integer;
sr:real;
begin
clrscr;
randomize;
for i:=1 to 7 do
begin
for j:=1 to 10 do
begin
mas[i,j]:=random(20);
write(mas[i,j],' ');
end;
writeln;
end;
writeln;
writeln;
max:=mas[1,1];
min:=mas[1,1];
for i:=1 to 7 do
begin
for j:=1 to 10 do
begin
if mas[i,j]>max then max:=mas[i,j];
if mas[i,j]<min then min:=mas[i,j];
end;
end;
sr:=(min+max)/2;
writeln(' Среднее арифметическое = ',sr:4:1);
readln;
end.

[capta1n]

Мой вариант:

program p1;
const
 n = 7;
 m = 10;
var
 A : array [1..n,1..m] of integer;
 i,j : byte;
 min, max : integer;
begin
  randomize;
  for i:=1 to n do
   for j:=1 to m do A[i,j]:=random(100)-50;

  writeln ('Vasha matrica: ');
  min:=70;
  max:=-70;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write (A[i,j],'|');
	  if A[i,j]>max then max:=A[i,j];
	  if A[i,j]<min then min:=A[i,j]
    end;
    writeln
  end;

  writeln ('min=',min,' ; max=',max);
  writeln ('Srednee arifm.= ',(min+max)/2:0:2);
  readln
end.