Срочно !!! ABC PASCAL!!!!! 1.5. Дан одномерный массив А(N). Отсортировать массив по...

Question

Срочно !!! ABC PASCAL!!!!! 1.5. Дан одномерный массив А(N). Отсортировать массив по возрастанию. Найти количество элементов массива кратных 3.

Answer 1

const

COUNT = 100;

var

i,j,sum, tmp: integer;

a:array[1..COUNT] of integer;

begin

randomize;

for i:=1 to COUNT do

begin

 a[i]:= random(1, 100);

 if (a[i] mod 3 = 0) then inc(sum);

end;

writeln('Кол-во кратных 3 = ', sum);

writeln('Отсортированый');

for i:=1 to COUNT do

 for j:=1 to COUNT-1 do

   if (a[j]>a[j+1]) then

   begin

     tmp:=a[j];

     a[j]:=a[j+1];

     a[j+1]:=tmp;

   end;

for i:=1 to COUNT do

write(a[i],' ');    

end.

Comments

А блок схему умеешь составлять?

---

Нет к сожалению, да и не люблю я это делать