Дан масив А(6) Определить количество положительных элементов.

1

Ответы и объяснения

Лучший Ответ!
2011-12-16T21:22:25+04:00

var
i,z,n:integer;
s:array [1..7] of real;
begin

begin
writeln ('Vvedite razmernost massiva');
read (n);

writeln ('Vvedite elementi massiva');
for i:=1 to n do
read (s[i]);

z:=0;
if (s[1]>0) then
z:=z+1;
if (s[2]>0) then
z:=z+1;
if (s[3]>0) then
z:=z+1;
if (s[4]>0) then
z:=z+1;
if (s[5]>0) then
z:=z+1;
if (s[6]>0) then
z:=z+1;
if (s[7]>0) then
z:=z+1;
writeln ('Kolichestvo polojitelnih chlenov massiva= ',z);
end;
end.