Решаем задачи Абрамян на Паскале. Minmax1

Minmax1. Дано целое число $$N$$ и набор из $$N$$ чисел. Найти минимальный и максимальный из элементов данного набора и вывести их в указанном порядке.

Решение:

program Minmax1;
var
  R,Min,Max: Real;
  i,N:Integer;

begin
  Write('N:');
     Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' элемент: ');
     Readln(R);
     if i=1 then 
      begin
       Min:=R;
       Max:=R;
      end;
     if R<Min then Min:=R;
     if R>Max then Max:=R;
   end;
  Writeln(Min,' ',Max);
end.

program Minmax1;

var

R,Min,Max: Real;

i,N:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write('Введите ',i,' элемент: ');

Readln(R);

if i=1 then

begin

Min:=R;

Max:=R;

end;

if R<Min then Min:=R;

if R>Max then Max:=R;

end;

Writeln(Min,' ',Max);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Minmax1

Комментарии:

Комментарии 1

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