Примеры сетевых информационных систем для разных направлений профессиональной деятельности

Var  a: array[1..10] of integer;   max,min,i: integer; begin  for i: = 1 to 10 do begin    write('введите ',i,'-ый элемент массива ');     readln(a[i]);     if i=1 then begin      min: =a[i];       max: =a[i];     end;     if a[i]> max then max: =a[i];     if a[i]< min then min: =a[i];   end;   write('разность наибольшего и наименьшего равна ',max-min); end.  

Var  a: array[1..10] of integer;   max,min,i: integer; begin  for i: = 1 to 10 do begin    write('введите ',i,'-ый элемент массива ');     readln(a[i]);     if i=1 then begin      min: =a[i];       max: =a[i];     end;     if a[i]> max then max: =a[i];     if a[i]< min then min: =a[i];   end;   write('разность наибольшего и наименьшего равна ',max-min); end.