Составить программу и её блок-схему используя одномерные - вопрос №16994517 от w11Maxim11w 30.08.2020 03:32

Question

Информатика: Составить программу и её блок-схему используя одномерные массивы: Дано одномерный массив А, состоящий из N элементов. Посчитать максимальное количество подряд нулей.(Pascal)​

w11Maxim11w · Answer

var
    A: array [1..10] of integer;
    i, j, n, temp: integer;

begin
    randomize();
    n := 10;
    for i := 1 to n do
    begin
        A[i] := random(100);
        write(A[i], ' ');
    end;

    for j := 1 to n - 1 do
    begin
        for i := 1 to n - j do
        begin
            if a[i] mod 10 < a[i + 1] mod 10 then begin
                temp := a[i];
                a[i] := a[i + 1];
                a[i + 1] := temp;
            end;
        end;
    end;

    writeln();
    for i := 1 to n do
        write(A[i], ' ');
end.