Masyvo tvarkymas

Vėl man bėdos su palyginus nesunkiomis struktūrinio programavimo užduotimis.

Užduotis:

Išvesti visus sveikus skaičius, esančius tarp 1 ir 120, kurie nesidalina iš 2, 3, 5 ir 7, mažėjimo tvarka, jų vidurkį ir kiekį skaičių, mažesnių už vidurkį.

Na prasuk ciklą nuo 1 iki 120 ir tikrint ar (skaičius mod 2) == 0; (skaičius mod 3) == 0 ir t.t. jeigu sąlyga tenkina talpink i masyvą, poto ta masyvą surikiuok (pavyzdys be rikiavimo):

program prog;
var i,sum,ave,n: Integer;
   a: array[1..120] of Integer;
begin
 for i:=1 to 120 do
 begin
        if (i mod 2) = 0 then begin a[i]:=i; sum:=sum+i; inc(n); end
   else if (i mod 3) = 0 then begin a[i]:=i; sum:=sum+i; inc(n); end
   else if (i mod 5) = 0 then begin a[i]:=i; sum:=sum+i; inc(n); end
   else if (i mod 7) = 0 then begin a[i]:=i; sum:=sum+i; inc(n); end;
 end;
 for i:=1 to 120 do
 begin
   if a[i]<>0 then Write(a[i],'; ');
 end;
 WriteLn;
 WriteLn('suma: ',sum,' kiekis: ',n,'/120 vidurkis: ',sum/n:2:2);
 Readln;
end.

Žinok "C" kalbos nelabai moku tai teks arba laukti kitų atsakymų arba pritaikyti tai ką daviau (šiaip gi principas visur vienodas eina, tai jeigu bent kiek moki C kalba tai tikrai pritaikysi tai ką čia daviau) :) bet jei aš neklystu tai prieš kelias dienas buvo panašus klausimas ir ten buvo pateiktas pavyzdys, pasiskaityk forumą tikrai rasi.

#include <stdio.h>

int main(void) {
int i = 0, j = 0, suma = 0, count = 0, vidurkis = 0;
int sk[100];

for ( i = 120; i > 0; i-- )
{
  if ( ( i % 2 ) && ( i % 3 ) && ( i % 5 ) && ( i % 7 ) )
  {
   printf("%d \n", i );
   suma += i;
   count++;
   sk[j++] = i;
  }
}

vidurkis = suma / count;


count = 0;

for ( i = 0; i <= j; i++)
 if ( sk[i] <  vidurkis ) count++;

printf("vidurkis: %d\n", vidurkis);
printf("skaiciai, mazesni uz vidurki: %d\n", count);

}