Question

Програма на паскалі Введіть з клавіатури n будь яких чисел. З'ясувати яке число було введено раніше, максимальне чи мінімальне

Answer 1

Ответ:

Всё просто.

Объяснение:

var

i, min, max, n: integer;

begin

min:=MaxInt; max:=-MaxInt-1;

Write('Введите 10 чисел: ');

for i:=1 to 10 do begin

Read(n);

if n<min then min:=n;

if n>max then max:=n;

end;

Writeln('min=',min);

Writeln('max=',max);

end.

Answer 2

Ось приклад програми на Pascal, яка дозволяє ввести n чисел з клавіатури і визначити, яке з них було введено раніше, максимальне і мінімальне число:

pascalCopy code
program MaxMinEarlier;

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

begin
  write('Введіть кількість чисел (n): ');
  readln(n);

  if n <= 0 then
  begin
    writeln('Кількість чисел повинна бути більше 0.');
    exit;
  end;

  writeln('Введіть числа:');

  readln(num);
  earlier := num;
  max := num;
  min := num;

  for i := 2 to n do
  begin
    readln(num);

    if num > max then
      max := num;

    if num < min then
      min := num;
  end;

  writeln('Максимальне число: ', max);
  writeln('Мінімальне число: ', min);
  writeln('Число, введене раніше: ', earlier);
end.

У цій програмі ви вводите кількість чисел (n), а потім вводите самі числа по одному. Програма зберігає перше введене число як "раніше введене" і порівнює кожне наступне число з максимальним і мінімальним числами для знаходження їх максимального і мінімального значень. Після завершення введення виводиться результат для максимального, мінімального і раніше введеного чисел.