помогите!!!! программирование 10 класс! - вопрос №65005

Здравствуйте, Делфи!

предлагаю сортировку методом пузырька.

Могу помочь. Заходите в чат.

Пусть дан массив А [1..10] of integer, который записан во входной файл input.txt, а максимальное число надо вывести в файл output.txt.

Внимание! Файл input.txt с исходным массивом должен лежать в одной папке с проектом!!!

var
  A: array[1..10] of integer;
  f,g:TextFile;
  i,j,max:integer;
begin
  AssignFile(f,'input.txt');
  AssignFile(g,output.txt'); {связываем файлы с файловыми переменными f и g}

  reset(f);
  for i:=1 to 10 do read(f,A[i]); {считываем массив}

  max:=A[1];
  for i:=1 to 10 do
    if max<A[i] then max:=A[i];  {ищем наибольший элемент (он будет в переменной max)}
  
  Rewrite(g);
  write(g,max); {записываем наибольший элемент в выходной файл}

  CloseFile(f);
  CloseFile(g); {закрываем оба файла}
end;   {если ты пишешь консольное приложение, поставь здесь точку вместо точки с запятой}