Question

Массивы в паскале. Нужно составить программу, которая будет находить максимальный элемент массива и минимальный элемент массива, кратный 5. Массив Т(7)

Answer 1

####################

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет задачу по поиску максимального элемента массива и минимального элемента, кратного 5, для заданного массива Т(7):

pascalCopy code
program MaxMinArray;

const
  N = 7;

var
  T: array[1..N] of Integer;
  i, maxElement, minElement: Integer;

begin
  writeln('Введите элементы массива T(7):');

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

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

  // Нахождение минимального элемента, кратного 5
  minElement := maxInt;
  for i := 1 to N do
  begin
    if (T[i] mod 5 = 0) and (T[i] < minElement) then
      minElement := T[i];
  end;

  writeln('Максимальный элемент массива: ', maxElement);
  if minElement <> maxInt then
    writeln('Минимальный элемент массива, кратный 5: ', minElement)
  else
    writeln('В массиве нет элементов, кратных 5.');

  readln;
end.

Программа предлагает ввести элементы массива T(7) с клавиатуры, а затем находит максимальный элемент и минимальный элемент, кратный 5. Результат выводится на экран. Если в массиве нет элементов, кратных 5, программа сообщает об этом.