в одномерном массиве из 10 элементов посчитать количество положительных элементов. Pascal abc
Answers & Comments
ukuleleshawerma69
Const N =10; var A: array [1..N] of real; i, k: real; begin {ввод массива} for i:=1 to N do if A[i]>0 then k:=k+1; writeln ('Положительных чисел: ', k); end.
Answers & Comments
var A: array [1..N] of real;
i, k: real;
begin
{ввод массива}
for i:=1 to N do
if A[i]>0 then
k:=k+1;
writeln ('Положительных чисел: ', k);
end.