Информатика, опубликовано 2018-08-22 23:17:04 by Гость
Посчитать количество положительных элементов массива из 10 чисел
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.