Аммон
6 год назад
Посчитать количество положительных элементов массива из 10 чисел
ОТВЕТЫ
Boleslavovich
Jul 9, 2019
Program qq;
uses CRT;
const N=10;
var a:array[1..N] of integer;
i,sum:integer;
begin
for i:=1 to N do
begin
write(a[,i,]=);
read(a[i]);
end;
sum:=0;
for i:=1 to N do
if a[i]gt;=0 then
sum:=sum+1;
writeln(Количество положительных элементов в массиве равно,sum);
end.
uses CRT;
const N=10;
var a:array[1..N] of integer;
i,sum:integer;
begin
for i:=1 to N do
begin
write(a[,i,]=);
read(a[i]);
end;
sum:=0;
for i:=1 to N do
if a[i]gt;=0 then
sum:=sum+1;
writeln(Количество положительных элементов в массиве равно,sum);
end.
92
Смежные вопросы:
