Тема массивы

[boxxxer]

Доброго времени суток всем,делал дз по информатике и наткнулся на задание с массивом,ей богу никак немогу его сделать.Очень прошу помогите пожайлуста!!!
само задание

Дан массив х.Найти элемент,квадрат которого имеет максимальное значение.


задание нужно сдать к пятнице,очень прошу,помогите!
Заранее спасибо.

[GetMax]

Язык программирования какой?

[kaljan775]

хм, так ? C++

int max=a[0]*a[0];
for (int i=1;i<x;i++){
 if (a[i]*a[i]>max)
  max=a[i]*a[i];
}

[Stilet]

От себя добавлю:

MODULE o;

IMPORT StdLog,ObxRandom;
VAR a:ARRAY(12) OF INTEGER;


PROCEDURE q*;
VAR i,max:INTEGER;
BEGIN
 StdLog.Clear;max:=0;
 FOR i:=0 TO LEN(a)-1 DO
  a[i]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
  StdLog.Int(a[i]);StdLog.Ln;
  IF (a[i]*a[i])>max THEN max:=a[i]*a[i];END;
 END;
 StdLog.Ln;
 StdLog.Int(max);

END q;


END o.
o.q;

[boxxxer]

язык паскаль