Program Chisla;
Uses Crt;
var p,o,z,c,i:integer;
n:real;
begin
clrscr;
write('Введите числа: ');
p:=0;z:=0;o:=0;c:=0;
for i:=1 to 5 do
begin
readln(n);
if (n=0) then z:=z+1; // Нуль не ни положительным ни отрицательным ни целым
if ((n mod 2)<>0) and (n>0) then p:=p+1;
if ((n mod 2)<>0) and (n<0) then o:=o+1;
if ((n mod 2)=0) and (n>0) then
begin
p:=p+1;
c:=c+1;
end;
if ((n mod 2)=0) and (n<0) then
begin
o:=o+1;
c:=c+1;
end;
writeln;
writeln('Положительных чисел: ',p);
writeln('Отрицательных чисел: ',o);
writeln('Целых чисел: ',c);
writeln('Нулей: ',z);
readkey;
end.
Program Fibonacci;
Uses Crt;
var i, n:integer;
{Итерационный метод вычисления чисел Фибоначчи}
function fib_it(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;b:=1;
if (n=1) or (n=2) then fib_it:=1
else begin
for i:=3 to n do
begin
c:=a+b
a:=b;
b:=c;
end;
fib_it:=c;
end;
end;
{main program}
begin
clrscr;
write('Введите n: ');
readln(n);
for i:=1 to n do write(fib_it(i),' ');
readkey;
end.
var a: array [1..10] of integer;
x,i: integer;
k: boolean;
begin
k:=False;
randomize;
for i:=1 to 10 do
a[i]:=random(21);
readln(x);
for i:=1 to 10 do
if a[i]=x then
begin
x:=i;
k:=True;
break;
end;
if k then
writeln('a[',x,']=',a[x])
else
writeln('не найдено')
end.
Объяснение: