Question

Помогите пожалуйста с информатикой,нужно написать программу в Паскале. «В одномерном массиве A из n элементов найти максимальный среди всех элементов и заменить нулевые элементы на 30.»

Answer 1

Ответ:

const n = 20;

var i, max :integer;

   A: array[1..n] of integer;

begin

 max := 0;

 write('Массив A: ');

 for i := 1 to n do

 begin

   A[i] := random(0, 10);

   write(A[i], ' ');

   if A[i] > max then max := A[i];

 end;

 writeln();

 writeln('Максимальный элемент: ', max);

 write('Массив с заменами: ');

 for i := 1 to n do

 begin

   if A[i] = 0 then A[i] := 30;

   write(A[i], ' ');

 end;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает вашу задачу:

pascalCopy code
program MaxAndReplaceZeros;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  A: array[1..MAX_SIZE] of integer;
  n, i, maxElement: integer;

begin
  writeln('Введите количество элементов массива (n): ');
  readln(n);

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
  end;

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

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

  // Заменяем нулевые элементы на 30
  for i := 1 to n do
  begin
    if A[i] = 0 then
      A[i] := 30;
  end;

  // Выводим измененный массив
  writeln('Измененный массив:');
  for i := 1 to n do
  begin
    writeln('A[', i, '] = ', A[i]);
  end;

  readln;
end.

Эта программа сначала запрашивает у пользователя количество элементов массива и сами элементы. Затем она находит максимальный элемент в массиве и заменяет все нулевые элементы на 30. Наконец, программа выводит максимальный элемент и измененный массив.