Работа с массивами

[Ainur]

Работа с массивами.Задать длину массива целых чисел.Заполнить массив. Вывести максимальное,минимальное,Максимальн ое по модулю, минимальное по модулю значение.

[Naive]

Ты хоть сам-то пробовал ее решить? Задача простейшая.

[Ainur]

я знаю что простаейшая. но не полуается. Напиши пожалуйста.

[Naive]

var i,n,a,b,c,d:integer; {a,b,c,d - соответственно: максимальное,минимальное,Максимальн ое по модулю, минимальное по модулю значение}
arr: array [1..100] of integer;
begin
 write(' Введите длину массива: ');
 read(n);
 for i:=1 to n do arr[i]:=random(100)-50;
 a:=arr[1];
 b:=arr[1];
 c:=arr[1];
 d:=arr[1];
 for i:=2 to n do
  begin
   if arr[i]>a then a:=arr[i];
   if arr[i]<b then b:=arr[i];
   if abs(arr[i])>abs(c) then c:=arr[i];
   if abs(arr[i])<abs(a) then d:=arr[i];
  end;
write('max=',a,' min=',b,' max_abs=',c,' min_abs=',d);
end.

возможны ошибки в синтаксисе(точно не помню), но алгоритм уловить можно

[Stilet]

но не полуается

Показывай как пробовал.

[Dirt]

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

Показывай как пробовал.

Привет, мало вероятно, что он пробывал