Все лабораторные работы по паскалю / 3 лаб. Массивы / Program4

uses crt;
const K=10;
var a: array[1..K] of integer;
i,max,min,raz,chet,nechet,Kchet, Knechet, s: integer;
t:Boolean;
begin
for i:=1 to K do
begin
a[i]:=succ(random(100));
end;
//нахождение MAX значения
for i:=1 to K do
begin
if a[i]>=max
then
max:=a[i];
end;
// нахождение MIN значения
min:=max;
for i:=1 to K do begin
if a[i]<=min
then
min:=a[i];
end;
raz:=max-min;
//сумма чётных и нечётных
for i:=1 to K do
begin
if a[i]mod 2=0
then
chet:=chet+a[i]
else
nechet:=nechet+a[i];
end;
//количество чётных и нечётных
for i:=1 to K do
begin
if a[i]mod 2=0
then
Kchet:=Kchet+1
else
Knechet:=Knechet+1;
end;
writeln;
writeln('Результат:');
write('Исходный массив - ');
for i:=1 to k do
write(a[i]:4);
writeln;
writeln('MAX значение: ',max);
writeln('MIN значение: ',min);
writeln('Разность между MAX и MIN значениями: ',raz);
writeln('Количество чётных: ', Kchet);
writeln('Количество нечётных: ', Knechet);
writeln('Сумма чётных: ', chet,' Сумма не чётных: ',nechet);
//сортировка массива
repeat
t:=true;
for i:=1 to K-1 do
if a[i]<a[i+1] then
Begin
s:=a[i];
a[i]:=a[i+1];
a[i+1]:=s;
t:=false;
End;
until t=true;
write('Упорядоченный массив - ');
for i:=1 to K do
write(a[i]:4);
end.