Delphi пробалема с двумерным массивом 5*5

[dozerx]

Здравствуйте!!!пожалуйста решите задачу
дан двумерный массив 5*5 надо найти среднеарифметический квадрат min и max
Сначало надо найти min и max потом среднеарифметическое и квадрат min и max
Я не очень разбираюсь в delphi но понимаю что надо задать счетчик [i] объявить массив присвоить к min:=1

[ByAlex]

Сообщение от dozerx

Здравствуйте!!!пожалуйста решите задачу
дан двумерный массив 5*5 надо найти среднеарифметический квадрат min и max
Сначало надо найти min и max потом среднеарифметическое и квадрат min и max
Я не очень разбираюсь в delphi но понимаю что надо задать счетчик [i] объявить массив присвоить к min:=1

Привет! Вот так попробуй -

1) ввод массива(как это делать, я думаю, вы умеете)
2) поиск минимального и максимального
min:=a[1];
max:=a[1];
for i:=1 to 5 do
   for j:=1 to 5 do
   begin
      if a[i,j]>max then
        max:=a[i,j];
      if a[i,j]<min then
        min:=a[i,j]; 
   end;
result:=sqr((min+max)/2);
3) выводим результат

Все! Если помог, жми на весы!

[VIK_aka_TOR]

ByAlex... небольшая поправочка...

min:=a[1,1];
max:=a[1,1];

а так вроде все весьма верно....

[ByAlex]

Сообщение от VIK_aka_TOR

ByAlex... небольшая поправочка...

min:=a[1,1];
max:=a[1,1];

а так вроде все весьма верно....

Да да, с одномерным спутал!

[dozerx]

Как вывести результат!!!!

[ByAlex]

Сообщение от dozerx

Как вывести результат!!!!

write('Result=', result);

[Heles]

Много вариантов.
ShowMessage('Max='+FloatToStr(max)) ;
например.