Целой переменной s присвоить сумму цифртрехзначного числа к. с хорошим оформлением. необходимо выполнить - id145503420230304 от Elisavettas 04.03.2023 19:07

Question

Информатика: Целой переменной s присвоить сумму цифртрехзначного числа к. с хорошим оформлением. необходимо выполнить операцию присваивания.

Elisavettas · Accepted Answer

Const
    n = 100;

var
    i, neg_k, pos_k, pos_s, neg_p: integer;
    a: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(10 + 50) - 10;
        write(a[i], ' ');
    end;
    writeln();

    neg_p := 1;
    for i := 1 to n do
        if a[i] > 0 then begin
            pos_k := pos_k + 1;
            pos_s := pos_s + a[i];
        end
        else if a[i] < 0 then begin
            neg_k := neg_k + 1;
            neg_p := neg_p * a[i];
        end;
    writeln('Positive: ', pos_k, ' ', pos_s);
    writeln('Negative: ', neg_k, ' ', neg_p);
end.

Целой переменной s присвоить сумму цифртрехзначного числа к. с хорошим оформлением. необходимо выполнить операцию присваивания.

MOGZ ответил