Предмет: Информатика,
автор: lavs8707
Посчитать количество положительных элементов массива из 10 чисел
Ответы
Автор ответа:
0
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]>=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]>=0 then
sum:=sum+1;
writeln('Количество положительных элементов в массиве равно',sum);
end.
Похожие вопросы
Предмет: Химия,
автор: fomichev25042006
Предмет: Геометрия,
автор: Аноним
Предмет: Алгебра,
автор: bogdangladkikh05
Предмет: Математика,
автор: aralbaevaelina
Предмет: Алгебра,
автор: jkukjl