Question

C клавиотуры вводится натуральное число, которое определяет кол-во вводимых чисел с клавиотуры целых значений. Пользователь вводит указанное кол-во целых значений.А программа выводит самое большое и самое маленькое значение из вводмимых. Напишите программу на Pascal!!!

Answer 1

Program n1;
var a,min,max,i,n: integer;
begin
readln(n);
readln(a);
min:=a;
max:=a;
for i:=2 to n do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('min=',min);
write('max=',max);
end.

Answer 2

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var mas:= readarrinteger('Введите элементы массива :',readinteger('n='));
 Writeln('Найбольшое число =',mas.Max);

Writeln('Найменьшее число=',mas.Min);

end.

Answer 3

Для решения данной задачи на Pascal, можно использовать следующий код:

pascalCopy code
program FindMinMax;

var
  n, i, num, min, max: integer;

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

  // Ввод первого числа и инициализация min и max
  writeln('Введите число 1:');
  readln(num);
  min := num;
  max := num;

  // Цикл для поиска минимального и максимального значения
  for i := 2 to n do
  begin
    writeln('Введите число ', i, ':');
    readln(num);
    if num < min then
      min := num;
    if num > max then
      max := num;
  end;

  // Вывод минимального и максимального значения
  writeln('Самое маленькое значение: ', min);
  writeln('Самое большое значение: ', max);

end.

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