Правила форума
Прочтите прежде чем задавать вопрос!
Народ, реально зашиваюсь, ничего не успеваю... до утра надо!!!
Если реально, можете помочь написать програмку на динамическую память, вот условие:
3. Даны натуральное число n, действительные числа a1, ..., a2n. Получить:
а) (a1 - a2n)(a3 - a2n-2)(a5 - a2n-4) … (a2n-1 - a2); б) a1a2n + a2a2n-1 + … + anan+1;
в) min(a1 + an+1, a2 + an+2, …, an + a2n); г) max (min(a1, a2n), min(a2, a2n-1), …, min(an, an+1)).
Мдя, условие немного искажено, но это не важно.
Вот мои наброски, а задать условие не получается, туплю что-то:
Код
uses crt;
type floatArr = array[1 .. maxint div sizeof(integer)] of integer;
var i,n:integer;
pArr: ^floatArr;
p:integer;
BEGIN
ClrScr;
getmem(pArr, sizeof(integer));
Write('Vvedite n='); Readln(n);
writeln('Ishodniy massiv:');
for i:=1 to 2*n do
begin
pArr^[i]:=random(10);
write(pArr^[i],' ');
end;
writeln;
readkey;
END.
type floatArr = array[1 .. maxint div sizeof(integer)] of integer;
var i,n:integer;
pArr: ^floatArr;
p:integer;
BEGIN
ClrScr;
getmem(pArr, sizeof(integer));
Write('Vvedite n='); Readln(n);
writeln('Ishodniy massiv:');
for i:=1 to 2*n do
begin
pArr^[i]:=random(10);
write(pArr^[i],' ');
end;
writeln;
readkey;
END.
Вот, помогите, плиз!
