Программа:
Pascal:
var
R: array[1..10] of integer;
n, i: integer;
begin
writeln('Введите массив: ');
for i := 1 to 10 do begin
readln(R[i]);
if R[i] > 0 then inc(n);
end;
writeln('Массив: ', R);
writeln('Количество положительных элементов: ', n);
end.
Программа:
Pascal:
var
R: array[1..10] of integer;
n, i: integer;
begin
writeln('Введите массив: ');
for i := 1 to 10 do begin
readln(R[i]);
if R[i] > 0 then inc(n);
end;
writeln('Массив: ', R);
writeln('Количество положительных элементов: ', n);
end.