Не могу понять, как это сделать (Delphi)

Вообщем, задание: 

Дан одномерный массив A из n элементов. Определить наибольшее значение произведения Ai Ai-1

Спойлер: "Код то я накидал, есть 1 НО"

program Laba5;

 

{$APPTYPE CONSOLE}

 

uses

  Windows;

 

const nmax=10;

var a:array[1..nmax] of integer;

    n,i:byte;

    znach:integer;

begin

setConsoleCP(1251);

setConsoleOutputCP(1251);

randomize;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Массив:');

for i:=1 to n do

 begin

  a:=random(20);

  write(a:4);

 end;

writeln;

writeln;

znach:=a[1]*a[2];

for i:=2 to n do

 begin

  if abs(a-a[i-1])>znach then znach:=abs(a-a[i-1]);

 end;

writeln('Максимальное произведение соседних элементов=',znach);

readln;

end.

 

 

Как сделать так, чтобы:

 

Спойлер: "ввод чисел был из этих файлов"

Спойлер: "а вывод результатов в эти"

Sir_cat сказал(а):↑

Вообщем, задание: 

Дан одномерный массив A из n элементов. Определить наибольшее значение произведения Ai Ai-1

Спойлер: "Код то я накидал, есть 1 НО"

program Laba5;

 

{$APPTYPE CONSOLE}

 

uses

  Windows;

 

const nmax=10;

var a:array[1..nmax] of integer;

    n,i:byte;

    znach:integer;

begin

setConsoleCP(1251);

setConsoleOutputCP(1251);

randomize;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Массив:');

for i:=1 to n do

 begin

  a:=random(20);

  write(a:4);

 end;

writeln;

writeln;

znach:=a[1]*a[2];

for i:=2 to n do

 begin

  if abs(a-a[i-1])>znach then znach:=abs(a-a[i-1]);

 end;

writeln('Максимальное произведение соседних элементов=',znach);

readln;

end.

 

 

Как сделать так, чтобы:

Спойлер: "ввод чисел был из этих файлов"

Спойлер: "а вывод результатов в эти "

Нажмите, чтобы раскрыть...

а можно без всяких program Laba5;, а просто скинуть тот кусок, где нужна помощь?)

и есть https://pastebin.com/

Запоминаешь значение ячейки(индекс) сравниваешь, если больше то перезаписываешь

  a:=random(20);

  write(a:4);

Омг кек ты куда ваще пишешь? Оно у тебя хоть собралось?

Где индексы?

А, вижу сожрал парсер

Подключай еще 1 библиотеку по типу консоли и пиши в файл

Можно и без нее просто менять тип вывода, не консоль а файл.

https://pas1.ru/filewrite

Бат-файлы на скринах.

Давно уже разобрался, тему клоз

Sir_cat сказал(а):↑

Давно уже разобрался, тему клоз

Нажмите, чтобы раскрыть...

Закрыто