Массивы паскаль

[Barbaraa]

даны массивы c1, ... c8; m1, ...m8

[Barbaraa]

Я начала вот так :
Program massiv ;
Var
c:array [1..8] of real;
M:array [1..8] of real;
i:integer;
N:array [1..8] of real;
SumM:real;
multc:real;
begin

[Barbaraa]

А вот что потом, даже не могу представить ��

[ForenLi]

А что непонятно?

[digitalis]

После begin'а нужен end, а между ними - реализация самого алгоритма (цикл) .
Но предварительно массивы нужно заполнить значениями.
А вообще задание идиотское, если из методички перерисовано правильно: найти i-й член последовательности (у кого узнать это i ? Или все от 1 до 8 (тогда почему так прямо бы и не сказать?) ), причём внутри расчёта ещё и ... сумма и произведение по i от 1 до 8 .
Интересно: какую траву курил автор этого опуса-задания ?

[Barbaraa]

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

А что непонятно?

Ну в принципе всё

[Barbaraa]

А кто нибудь может написать саму программу?
Пожалуйста

[digitalis]

Дык непонятно - что рассчитывать: один N [i] или все 8 - об этом ни слова.

for i := 1 to 8 do
   begin
       Write ('C[',i,'] ?') ;
       Readln C[i] ;
       Write ('M[',i,'] ?') ;
       Readln M[i]
   end ;

Ну и дальше в таком разрезе.

[Barbaraa]

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

Дык непонятно - что рассчитывать: один N [i] или все 8 - об этом ни слова.

for i := 1 to 8 do
   begin
       Write ('C[',i,'] ?') ;
       Readln C[i] ;
       Write ('M[',i,'] ?') ;
       Readln M[i]
   end ;

Ну и дальше в таком разрезе.

Как оказалось нужно рассчитать все 8

[Barbaraa]

Program massiv;
var
c:array[1..8] of integer;
M:array[1..8] of integer;
i:integer;
N:array[1..8] of real;
sumM:real;
proc:real;
begin
write('Введите 8 элементов массива c');
for i:=1 to 8 do
read(c[i]);
write('Вывод массива c');
for i:=1 to 8 do
write(c[i],'');
writeln();
write('Введите 8 элементов массива M');
for i:=1 to 8 do
read(c[i]);
write('Вывод массива M');
for i:=1 to 8 do
write(M[i],'');
writeln();
sumM:=0;
for i:=1 to 8 do
sumM:=sumM + M[i];
for i:=1 to 8 do
writeln('sumM=',sumM);
proc:=1;
for i:=1 to 8 do
proc:=proc + c[i];
for i:=1 to 8 do
writeln('proc=',proc);
begin
N[i]:=((c[i]+M[8])/c[i])+((c[5])*(sumM))-sqr(proc);
writeln('N[i]=',N[i]);
end;
end.

Но здесь почему-то выводит только N[i] и почему то сумма равна 0. Кто нибудь помогите пожалуйста