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.
объяснение: