Question

Написать программу на Паскале , не используя массивы Напечатать лучший результат заплыва среди 8 участников

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqReal('Вводите:', 8).Min.Println

end.

Объяснение:

Последовательность - это не массив, она не хранится и память выделяется только под один ее элемент.

Answer 2

Конечно! Вот пример программы на языке Паскаль, который находит лучший результат заплыва среди 8 участников без использования массивов:

pascalCopy code
program BestSwimmer;

var
  i, bestResult, currentResult: integer;

begin
  // Инициализируем переменную bestResult значением минимально возможного времени
  bestResult := 9999;

  // Цикл для ввода результатов каждого участника и поиска лучшего результата
  for i := 1 to 8 do
  begin
    // Выводим сообщение с номером текущего участника
    writeln('Введите результат участника ', i, ':');
    
    // Считываем результат текущего участника
    readln(currentResult);
    
    // Проверяем, является ли текущий результат лучшим
    if currentResult < bestResult then
      bestResult := currentResult;
  end;

  // Выводим лучший результат заплыва
  writeln('Лучший результат заплыва:', bestResult);
end.

В данной программе мы используем цикл for для ввода результатов каждого участника и сравниваем их с текущим лучшим результатом bestResult. Если результат текущего участника оказывается лучше, мы обновляем значение bestResult. В конце программы выводится лучший результат заплыва среди всех участников.

Обратите внимание, что в этой программе нет явного использования массивов, как требовалось в вашем запросе. Вместо этого мы используем переменные bestResult и currentResult для хранения текущего лучшего результата и результатов каждого участника соответственно.