Заполнить одномерный массив случайными числами из отрезка [0,100], состоящих из 10 элементов. найдите размах между наибольшим и наименьшим значением массива

program krab52; uses crt; const   n=10; var  a: array [1..n] of integer;   i,max,min: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   randomize;   {заполняем массив}  for i: =1 to n do      begin          a[i]: =random(101);           write (a[i]: 4);       end;   writeln();   {ищем макс и мин}  max: =a[1];   min: =a[1];   for i: =2 to n do       begin          if a[i]< min then min: =a[i];           if a[i]> max then max: =a[i];       end; {выводим результат}  writeln();   writeln(' максимальный элемент ',max);   writeln(' минимальный элемент ',min);   writeln(' размах между максимальным и минимальным элементами ',max-min);       end.

uses crt; var

  a: array[1..10] of integer;   i,max,min: integer; begin  max: =1; min: =100;   for i: =1 to 10 do  begin    a[i]: =random(101);     write(a[i]: 4);     if a[i]> max then max: =a[i];     if a[i]< min then min: =a[i];   end;   writeln;   write('max=',max,'; min=',min,' ; razmah=',max-min); end.

Pascalabc: var s1,s2,n,i: integer; begin writeln('до какого числа будем считать? '); readln(n); for i: =1 to n-1 do begin if i mod 2 = 0 then s1: = s1 + i; if i mod 2 < > 0 then s2: = s2 + i; end; writeln('сумма четных чисел = ',s1); writeln('сумма нечетных чисел = ',s2); end.