Блог учителя Информатики

Решение задачи ExamBegin50


Условие задачи:

На вход в первой строке подаются два вещественных числа A и B (A < B), во второй строке — целое положительное число N, а в третьей строке — массив из N вещественных чисел. Среди элементов массива, принадлежащих интервалу (AB), найти минимальный и максимальный и вывести их в указанном порядке (каждое число выводить на новой строке и снабжать комментарием «MIN=» или «MAX=»). Если массив не содержит элементов, лежащих в интервале (AB), то вывести текст «NO».


uses PT4Exam;

const
  R = 100;

var
  m: array[1..R] of real;
  a, b, max, min: real;
  n, i: integer;
  k: boolean;

begin
  Task('ExamBegin50');
  Readln(a, b);
  Read(n);
  max := a; min := b; k := false;
  for i := 1 to n do
  begin
    Read(m[i]);
    if (m[i] > a) and (m[i] < b) then begin
      k := true;
      if m[i] > max then max := m[i];
      if m[i] < min then min := m[i];
    end;
  end;
  if k = false then Writeln('NO')
  else begin
    WriteLn('MIN=', min:4:2);
    WriteLn('MAX=', max:4:2);
  end;
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий