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


textual

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

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.

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

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



Похожие ответы
  1. 2. Сформировать двумерный динамический массив. Добавить в него строку с заданным номером;

  1. В произвольно заданном одномерном массиве определить два элемента с минимальными значениями и уменьшить исходный массив на элементы, расположенные между найденными значениями.

  1. Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

  1. В текстовом редакторе создать файл из нескольких строк символов. Вывести его содержимое на экран. В строке с заданным номером k>0 подсчитать количество цифр. Полученное значение записать в конец файла и вывести содержимое измененного файла на экран.

  1. Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

  1. В заданном одномерном массиве все элементы этого массива умножить на среднее арифметическое наибольшего и наименьшего элементов этого массива. Начальный и преобразованный массивы напечатать с указанием, что печатается.

  1. Задан вектор из N элементов. Найти наибольшее число и его координату среди кратных трем и совпадающих со своим номером элементов и поменять его с последним элементом.

  1. Рост учеников класса хранится в массиве. Определить количество учеников, рост которых больше (меньше) роста ученика с номером П. Значение П вводится с клавиатуры.