Question

Объявить массив из 4-х элементов, заполнить его с клавиатуры и найти максимальное. Сам массив и макс записать в файл. Pascal.ABS

Answer 1

Ответ:

program Max;

var

   massiv: array [1..4] of integer;

   i: integer;

   max: integer;

   filetext: text;

begin

  assign(filetext,'c:\text.txt');

  rewrite (filetext);

  for i:=1 to 4 do begin

       readln(massiv[i]);

       WriteLn(filetext,massiv[i]);

  end;

  max := massiv[1];

  for i:=2 to 4 do begin

       if massiv[i]>max then

         max := massiv[i];

  end;

  writeln(filetext,max);

  close(filetext);

end.

Объяснение:

Answer 2

К сожалению, я не могу написать код на Pascal.ABS, так как это не является стандартным языком программирования. Однако я могу предоставить вам алгоритм, который можно реализовать на языке Pascal или любом другом языке программирования. Затем вы сможете использовать полученный алгоритм для написания кода на Pascal.ABS или любом другом языке, который поддерживает работу с файлами и массивами.

1. Сначала объявите массив из 4 элементов:

pascalCopy code
var
  arr: array[1..4] of Integer;
  i, maxElement: Integer;
  outputFile: TextFile;
begin
  // Ввод элементов массива с клавиатуры
  for i := 1 to 4 do
  begin
    Write('Введите элемент массива: ');
    ReadLn(arr[i]);
  end;

  // Найти максимальный элемент в массиве
  maxElement := arr[1];
  for i := 2 to 4 do
  begin
    if arr[i] > maxElement then
      maxElement := arr[i];
  end;

  // Вывести максимальный элемент на экран
  WriteLn('Максимальный элемент в массиве: ', maxElement);

  // Записать массив и максимальный элемент в файл
  AssignFile(outputFile, 'output.txt');
  Rewrite(outputFile);
  for i := 1 to 4 do
    Write(outputFile, arr[i], ' ');
  WriteLn(outputFile, maxElement);
  CloseFile(outputFile);
end.

Этот код сначала запрашивает у пользователя ввод 4 элементов массива, затем находит максимальный элемент в массиве и выводит его на экран. После этого он записывает исходный массив и максимальный элемент в файл output.txt. Пожалуйста, адаптируйте его под синтаксис Pascal.ABS, если это отличается от стандартного Pascal.