Реферат: Отчет по практике по Turbo Pascal

a,b,i:integer;

begin

clrscr;

writeln('Введите через пробел 10 чисел');

for i:=1 to n do

begin

readln(z[i]);

if z[i]>0 then

a:=a+1;

if z[i]<0 then

b:=b+1;

end;

clrscr;

writeln('Исходные данные');

for i:=1 to n do

write(z[i]:4);

writeln;

writeln('Количество положительных элементов массива Z[1..n] равно',a:4);

writeln('Количество отрицательных элементов массива Z[1..n] равно',b:4);

readln

end.

Протокол работы

А)Введите через пробел 10 чисел

-5

25

17

18

20

-10

-9