Складіть програму для реалізації алгоритму знаходження кількості додатних елементів масиву. Дано масив А[1..5]
Ответы
Ответ дал:
0
var
x: array[1..5]
index: real;
i: integer;
begin
i:=0;
for i to 13 do
begin
if x[i] < 0
then
index++;
end;
writeln('Кількість = ',index);
readln;
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад