Составление разветвляющего алгоритма в среде турбо паскаль. 1)определить, является ли число n одновременно - id423980520210513 от ochensad 13.05.2021 08:19

Question

Информатика: Составление разветвляющего алгоритма в среде турбо паскаль. 1)определить, является ли число n одновременно положительным и кратным 3

ochensad · Accepted Answer

Const
    n = 10;

var
    i, c: integer;
    a, w: array[1..n] of integer;

begin
    randomize;

    writeln('Исходный массив:');
    for i := 1 to n do
    begin
        a[i] := random(201) - 100;
        write(a[i], ' ');
    end;
    writeln;

    c := 0;
    for i := 1 to n do
        if a[i] > 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;

    writeln('Кол-во положительных элементов: ', c);
    for i := 1 to n do
    begin
        if a[i] <= 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;
    end;

    writeln('Результат:');
    for i := 1 to c do
        write(w[i], ' ');
end.

Составление разветвляющего алгоритма в среде турбо паскаль. 1)определить, является ли число n одновременно положительным и кратным 3

MOGZ ответил