Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад