Write a program that determines the number of positive elements of a one-dimensional array.
| July 15, 2021 | education
var
i, n: longint;
a: array [1..10] of longint;
begin
n: = 0;
randomize;
for i: = 1 to 10 do
begin
a [i]: = random (100) – 50;
write (a [i], ”);
if a [i]> 0 then
n: = n + 1;
end;
writeln;
write (‘The number of positive members of this one-dimensional array is equal to’);
writeln (n, ‘.’);
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
