Найти порядковый номер максимального элемента и записать его в первую строку файла, во 2-ю строку сам массив - Pascal

Формулировка задачи:

var
  f, r: file of char;
  c: char;
  i, n,k: integer;
  max:char;
  x: array [1..1000] of char;
 
 
begin
  assign(f, 'd:\input.txt');
  assign(r, 'd:\output.txt');
  
  
  reset(f);
  i := 1;
  while not eof(f) do 
  begin
    read(f, c);
    x[i] := c;
    write(x[i], ' ');    
    inc(i);
    n := i;
  if x[i]>max then
begin
k:=i; 
max:=x[i];
end; 
  end;
Номер max элемента вроде нашел,а как в 1 строку его и во 2 массив записать? .

Код к задаче: «Найти порядковый номер максимального элемента и записать его в первую строку файла, во 2-ю строку сам массив - Pascal»

textual
var
  f, r: text;
  i, n, k: integer;
  max: integer;
  x: array [1..1000] of integer;
 
 
begin
  assign(r, 'input.txt');
  reset(r);
  i := 1;
  while not eof(r) do
  begin
    read(r, x[i]);
    inc(i);
  end;
  n := i;
  close(r);
  
  max := x[1];  
  k := 1;
  for i := 1 to n do
    if x[i] > max then
    begin
      k := i; 
      max := x[i];
    end; 
  writeln('Max: ', max, ', индекс: ', k );
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, k);
  for i := 1 to n do
    write(f, x[i], ' ');
  writeln(f);  
  close(f);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.846 из 5


СДЕЛАЙТЕ РЕПОСТ