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.

объяснение:

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

2^i = 64

i = 6 бит потребуется на 1 символ

256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст

196608 бит: 8 = 24576 байт : 1024 = 24 килобайт

ответ. 24 килобайт