• Вопрос по информатике:

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

    • Автор:

      yates

  • Ответ:

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

    • Отвечал:

      macie7wpg
    • 0

    Ответ:

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

    • Отвечал:

      phoenixt9hv
    • 0

    Ответ:

    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.

    • Отвечал:

      carolynzy6x
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска