РЕБЯТА!!!!!!!!!! ГОРЮ,ГОРЮЮЮ!!!!!!!!! ОЧЕНЬ НАДО!!!!!

[sania15]

Составить текст программы на языке Паскаль по следующему заданию.

Дан одномерный массив случайных чисел,сформировать новый массив из данного каждый элемент которого начиная с N удвоен. Найти полусумму элементов нового массива.




еще надо сдклать какую то блок схему. я просто в информатике полный ноль1!!! ребята,выручайте ради бога!!!
мне еще надо будет защитить ответ свой. тоесть мне препод будет задавать вопрос,например "от куда взялась эта строчка? зачем ты это сделал?" воотт....помогите пожалуйста!!!!



мне препод будет задавать вопрос,например "от куда взялась эта строчка? зачем ты это сделал?

вобщем надо его защитить будет....
блин,а я безпонятия что говорить....
можете и в этом помоч?????)))

[Hacker19_90]

program forum;
uses crt;
const
    n = 10;
var
    mas1, mas2: array[1..n] of integer;
    i, j, pos: integer;
    sum: integer;
begin
    clrscr;
    j := 1;
    randomize;
    for i := 1 to n do
    begin
        mas1[i] := random(10);
    end;
    Writeln ('Полученный массив');
    for i := 1 to n do
    begin
        Write (mas1[i]:4);
    end;
    Writeln;
    Writeln ('Введите позицию');
    Readln(pos);
    mas2[j] := mas1[pos];
    sum := 0;
    for i := pos to n - 1 do
    begin
        if (mas1[i+1] = (mas[i]*2)) then
        begin
             Inc(j);
             mas2[j] := mas[i+1]
             sum := sum + mas2[j];
        end;
    end;
    writeln ('Полученный массив');
    for i := 1 to j do
        Write (mas2[i]:4);
    writeln;
    Writeln ('Полусумма равна ', sum/2);
    Readkey;
end.

По волнующим вас вопросам пишите в асю

[casekey]

Сообщение от sania15

Составить текст программы на языке Паскаль по следующему заданию.

Дан одномерный массив случайных чисел,сформировать новый массив из данного каждый элемент которого начиная с N удвоен. Найти полусумму элементов нового массива.




еще надо сдклать какую то блок схему. я просто в информатике полный ноль1!!! ребята,выручайте ради бога!!!
мне еще надо будет защитить ответ свой. тоесть мне препод будет задавать вопрос,например "от куда взялась эта строчка? зачем ты это сделал?" воотт....помогите пожалуйста!!!!



мне препод будет задавать вопрос,например "от куда взялась эта строчка? зачем ты это сделал?

вобщем надо его защитить будет....
блин,а я безпонятия что говорить....
можете и в этом помоч?????)))

А можно потом стипендию за вас получать?

[Son Of Pain]

Заче-е-е-ем ты это сделала, наде-е-е-ла платье белое...

[Hacker19_90]

Ну чё оффтопите! Ещё неизвестно работает ли программа!

[unbanned]

да вроде должна работать...ток бы еще на pos поставить условие

(pos<=n) and (pos>0)

а то мало ли что преподу захочется))