1)даны натуральное число n и вещественные числа
1 2 , , . n a a a
определить
количество отрицательных и количество положительных вещественных
чисел.
2)даны натуральное число n и вещественные числа
1 2 , , . n
x x x
найти количество вещественных чисел, которые больше своих "соседей", т. е. предшествующего и последующего.
обе проги в си, : )

ответ:

program qq;

var a: array of real;

i,n,imax: int64;

begin

write('введите количество элементов > > > ');

readln(n);

writeln('');

setlength(a,n);

for i: =0 to n-1 do

begin

write('введите элемент №',i+1,' > > > ');

readln(a[i]);

end;

imax: =0;

for i: =1 to n-1 do

if a[i]> a[imax] then imax: =i;

writeln('');

write('максимальный элемент ',a[imax],' находится под номером ',imax+1);

end.

объяснение: