Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс

PROGRAM MAS_X;
USES CRT;
VAR X: Array [1..40] of integer;
    i, MIN, iMIN, K, l, C:integer;
BEGIN
CLRSCR;
FOR i:=1 TO 40 DO X[i]:=TRUNC((70+25)*RANDOM-25);
WRITELN ('Massive X');
FOR i:=1 TO 40 DO WRITE (X[i]:5);
WRITELN;
K:=0;
FOR i:=1 TO 40 DO IF (X[i]/3<>X[i] DIV 3) AND (-X[i]<0) THEN K:=K+1;
WRITELN ('Summa kratnyh 3 otricatelnih elementov K=', K:3);
MIN:=X[1];
iMIN:=1;
FOR i:=1 TO 40 DO IF X[i]<MIN THEN BEGIN MIN:=X[i];
                                         iMIN:=i;
                                         END;
WRITELN ('Minimalniy element', MIN:2,' ego index', iMIN:2);
FOR l:=1 TO 40-1 DO
FOR i:=1 TO 40-l DO IF X[i]>X[i+1] THEN BEGIN C:=X[i];
                                              X[i]:=X[i+1];
                                              X[i+1]:=C;
                                              END;
WRITELN ('Otsortirovanniy massive X');
FOR i:=1 TO 40 DO WRITE (X[i]:10);
WRITELN;
END.

uses crt;
const n=40;
var x:array[1..n] of integer;
    i,j,s,mn,imn,t:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
s:=0;
for i:=1 to n do
 begin
  x[i]:=-25+random(96);
  if(x[i]<0)and(x[i] mod 3=0)then s:=s+x[i];
  if i=1 then
   begin
    mn:=x[1];
    imn:=1;
   end
  else if x[i]<mn then
   begin
    mn:=x[i];
    imn:=i
   end;
  write(x[i]:4);
 end;
writeln;
writeln('Сумма отрицатеьных, кратных 3=',s);
writeln('Минимальный элемент x[',imn,']=',mn);
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]>x[j] then
 begin
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t
 end;
writeln;
writeln('Массив, отсортированный по возрастанию:');
for i:=1 to n do
write(x[i]:4);
readln
end.

PROGRAM MAS_X;
    USES CRT;
    VAR X: Array [1..40] of integer;
    i, MIN, iMIN, K, l, C:integer;
BEGIN
   CLRSCR;
   FOR i:=1 TO 40 DO X[i]:=TRUNC((70+25)*RANDOM-25);
   WRITELN ('Massive X');
   FOR i:=1 TO 40 DO WRITE (X[i]:5);
   WRITELN;
   K:=0;
   iMIN:=1;
   FOR i:=1 TO 40 DO BEGIN
       IF (X[i]/3<>X[i] DIV 3) AND (X[i]<0) THEN K:=K+X[i];
       IF (X[i]<X[iMIN]) THEN iMIN:=i;
   END;
   WRITELN ('Summa kratnyh 3 otricatelnih elementov K=', K:3);
   WRITELN ('Minimalniy element', x[iMIN]:2,' ego index', iMIN:2);
 
   FOR l:=1 TO 40-1 DO
   FOR i:=l+1 TO 40 DO IF X[i]>X[l] THEN BEGIN 
       C:=X[l];
       X[l]:=X[i];
       X[i]:=C;
   END;
   WRITELN ('Otsortirovanniy massive X');
   FOR i:=1 TO 40 DO WRITE (X[i]:10);
   WRITELN;
END.

uses crt;
const n=40;
var x:array[1..n] of integer;
    i,j,s,mn,imn,t:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
s:=0;
for i:=1 to n do
 begin
  x[i]:=-25+random(96);
  if(x[i]<0)and(x[i] mod 3=0)then s:=s+x[i];
  if i=1 then
   begin
    mn:=x[1];
    imn:=1;
   end
  else if x[i]<mn then
   begin
    mn:=x[i];
    imn:=i
   end;
  write(x[i]:4);
 end;
writeln;
writeln('Сумма отрицатеьных, кратных 3=',s);
writeln('Минимальный элемент x[',imn,']=',mn);
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]>x[j] then
 begin
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t
 end;
writeln;
writeln('Массив, отсортированный по возрастанию:');
for i:=1 to n do
write(x[i]:4);
readln
end.