Пожалуйста помогите в Delphi задача на одномерный массив

[Женя V.]

помогите получить зачет по информатике я в ней очень плохо разбираюсь, в первом семестре намного легче было...
вот задача: дан одномерный массив A(1),..,A(k). если модуль минимального элемента больше чем максимальный то нужно найти максимальный элемент. прошу помогите

[HoLToFF]

Program Omg;
{$APPTYPE CONSOLE}
const k = 10;
var
m:array[1..k] of integer;
max, min, i, a: integer;

begin
writeln('Vvedite 1-i element massiva :'); readln(a);
min:=a; max:=a;
for i:= 2 to k do
  begin
  writeln('Vvedite ',i,'-i element massiva :');
  read(a);
  if a < min then min:=a;
  if a > max then max:=a;
  end;
if abs(min) > max then writeln('Max = ', abs(min)) else writeln('Max = ',max);
readln; readln
end.

[Женя V.]

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

Program Omg;
{$APPTYPE CONSOLE}
const k = 10;
var
m:array[1..k] of integer;
max, min, i, a: integer;

begin
writeln('Vvedite 1-i element massiva :'); readln(a);
min:=a; max:=a;
for i:= 2 to k do
  begin
  writeln('Vvedite ',i,'-i element massiva :');
  read(a);
  if a < min then min:=a;
  if a > max then max:=a;
  end;
if abs(min) > max then writeln('Max = ', abs(min)) else writeln('Max = ',max);
readln; readln
end.

спасибо! но мне нужну не совсем так.... мне нужно задавать элементы массива вводя их в StringGridе...
да и я не совсем понял как пользоваться writeln и readln... ведь в delphi вроде можно выводить только через edit а что-то записать в labele

[HoLToFF]

Это консольное приложение в делфи

[Arassir]

пиши в аську помогу 386-724 - 648

[HoLToFF]

Аналогично тогда, кидаете на форму СтрингГрид, кнопку, лейбел, организуете цикл по ячейкам, находите минимальные и максимальные элементы, аналогично в приведенном мною примере и выводите в лейбел.

[Женя V.]

спасибо.. постараюсь разобраться если что спрошу....