Задача 84

program pr84;

{84. Дана последовательность целых чисел a1, a2,...,an.

Найти наименьший среди положительных элементов.}

uses

crt;

var

i,n:byte;

min:integer;

a: array [1..100] of integer;

begin

clrscr;

Write('Vvedite kolichestvo chlenov posledovatelnosti: ');

Read(n);

Writeln('Vvedite posledovatelnost:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Readln(a[i]);

end;

min:=100000;

for i:=1 to n do

if (a[i]>0) and (a[i]<min) then

min:=a[i];

Writeln('Ishodnye dannye: ');

for i:=1 to n do

Writeln(i,'-i element: ',a[i]);

Writeln('min>0= ',min);

Readln;

end.

Задача 85

program pr85;

{85. Дана последовательность целых чисел a1, a2,...,an.

Найти наибольший среди элементов, стоящих на четных местах.}

uses

crt;

var

i,n:byte;

max:integer;

a: array [1..100] of integer;

begin

clrscr;

Write('Vvedite kolichestvo chlenov posledovatelnosti: ');

Read(n);

Writeln('Vvedite posledovatelnost:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Readln(a[i]);

end;

max:=a[2];

i:=2;

while i<n do

begin

inc(i,2);

if a[i]>max then

max:=a[i];

end;

Writeln('Ishodnye dannye: ');

for i:=1 to n do

Writeln(i,'-i element: ',a[i]);

Writeln('Max= ',max);

Readln;

end.

Задача 86

program pr86;

{86. Дана последовательность действительных чисел a1, a2,...,an.

Найти сумму первых чисел, произведение которых меньше заданного числа b.}

uses

crt;

var

i,n:byte;

sum,proizv,b:real;

a: array [1..100] of real;

begin

clrscr;

Write('Vvedite kolichestvo chlenov posledovatelnosti: ');

Read(n);

Writeln('Vvedite posledovatelnost:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Readln(a[i]);

end;

Write('Vvedite chislo b:');

Readln(b);

sum:=0;

proizv:=1;

for i:=1 to n do

if proizv*a[i]<=b then

sum:=sum+a[i]

else

break;

Writeln('Ishodnye dannye: ');

for i:=1 to n do

Writeln(i,'-i element: ',a[i]:0:3);

Writeln('Summa = ',sum:0:3);

Readln;

end.

Задача 87

program pr87;

{87. Дана последовательность действительных чисел a1, a2,...,an.

Получить из заданной последовательности другую,

в которой сначала бы шли отрицательные члены исходной последовательности,

а затем неотрицательные.}

uses

crt;

var

i,n,v:byte;

sum:real;

a,b: array [1..100] of real;

begin

clrscr;

Write('Vvedite kolichestvo chlenov posledovatelnosti: ');

Read(n);

Writeln('Vvedite posledovatelnost:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Readln(a[i]);

end;

v:=0;

for i:=1 to n do

if a[i]<0 then

begin

inc(v);

b[v]:=a[i];

end;

for i:=1 to n do

if a[i]>0 then

begin

inc(v);

b[v]:=a[i];

end;

Writeln('Ishodnye dannye: ');

for i:=1 to n do

Writeln(i,'-i element: ',a[i]:0:3);

Writeln('Poluchennaia posledovatelnost b: ');

for i:=1 to v do

Writeln(i,'-i element: ',b[i]:0:3);

Readln;

end.