Question

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

Answer 1

Посчитать кол-во положительных элементов массива из 10 элементов

const
    n = 10;

var
    k, i: integer;
    x: array[1..n] of integer;

begin
    for i := 1 to n do x[i] := random(10) - 5;
   
    k := 0;
    for i := 1 to n do
        if x[i] > 0 then k := k + 1;
    writeln(k);
end.