Решение задачи Minmax 1

#include <stdio.h>
int main(void)
{
    int n,i,min,max;
    printf("N:");
    scanf("%i", &n);
    for (i=1;i<=n;++i){
        int r;
        printf("%i: ",i);
        scanf("%i", &r);
        if (i==1){
            min=r;
            max=r;
        }
        if (r<min) min=r;
        if (r>max) max=r;
    }
    printf("%i %i\n", min,max);
    return 0;
}

import random

N = random.randrange(1,10)
a = [random.randrange(-10,10) for i in range(N)]

print('N = ', N)
print('a = ', a)
print('min(a) = ', min(a))
print('max(a) = ', max(a))
									

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.