Информатика, опубликовано 2018-08-22 22:08:36 by Гость
Дан целочисленный массив размера K. Вычислить количество положительных и количество отрицательных элементов массива.
Ответ оставил Гость
Uses crt;
var mas: array [1..1000] of real;
x,k,o,p:integer;
begin
write(K=); readln(K);
o:=0; p:=0;
for x:=1 to K do
begin
write(mas[,x,]:);
readln(mas[x]);
if mas[x] if mas[x]>0 then inc(p);
end;
writeln;
writeln(Отрицательных элементов: ,o);
writeln(Положительных элементов: ,p);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на