Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Решить задачу: пользователь вводит 4 числа, найти максимальное и минимальное из этих чисел
СРОЧНО, 24 БАЛЛА!!!

Ответ оставил Гость

Program test;
var
  n,i,min,max:integer;
  a:array[1..4] of integer;
begin
  for i:=1 to 4 do begin
    readln(a[i]);
    if i=1 then begin
      min:=a[i];max:=a[i];
    end
    else
    begin
      if a[i]>max then max:=a[i]
      else if a[i]    end;
  end;
  writeln(Максимальное значение ,max);
  writeln(Минимальное значение ,min);
end.