Question

Программа в Паскале!"Напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального чисел . Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000."Отдал все пункты что есть! Помогите!

Answer 1

uses System;
var ch,min,max,i:integer;
begin cls;

readln(ch);
min:=ch;
max:=ch;

while(ch<>0) do
begin
readln(ch);
if ((min > ch) and (ch<>0)) then min:=ch;
if max < ch then max:=ch;
inc(i);
if i > 999 then break;
end;

writeln('max = ', max);
writeln('min= ',min);
writeln('suma max + min = ',max+min);
readln;
end.

Answer 2

Программа на Паскале для решения этой задачи может выглядеть следующим образом:

program MaxMinSum;

var
  number, max, min, sum: integer;

begin
  max := -30001; // инициализируем максимум меньшим числом, чем максимальное возможное значение
  min := 30001; // инициализируем минимум большим числом, чем минимальное возможное значение
  sum := 0; // инициализируем сумму

repeat
    read(number); // считываем число
    if number <> 0 then // если число не равно нулю
    begin
      if number > max then // если число больше текущего максимума
        max := number; // обновляем максимум
      if number < min then // если число меньше текущего минимума
        min := number; // обновляем минимум
    end;
  until number = 0; // повторяем до тех пор, пока не введем ноль

sum := max + min; // вычисляем сумму максимального и минимального чисел
  writeln('Сумма максимального и минимального чисел: ', sum); // выводим результат
end.

Эта программа считывает последовательность целых чисел, определяет максимальное и минимальное число в последовательности, вычисляет и выводит их сумму.