Раджаб bro

Это декан всё написал.Про индекс тоже что-то говорил.

Vladimir_S

То есть это зловредный декан туда массив всандалил?Интересно, что и в каких выражениях?

Раджаб bro

Декан факультета Ахмедов Сулейман Абдурагимович - доктор технических наук, профессор,
заслуженный работник образования Республики Дагестан,
заслуженный работник высшей школы Российской Федерации

Раджаб bro

Это регалии моего декана
Про индексы...он говорил "почему нет индекса?"

Раджаб bro

Незнаю вроде как я вижу и прога написана правильно и декан Pro...может он меня проверял?Хотя врядли на него не похоже.

Vladimir_S

Естественно, если вы за каким-то шайтаном заменили простую переменную массивом. Хотите с массивом - можно, хотя тут он, как дамское седло на бегемоте, но уж если Вы его (массив) вводите, то и обращайтесь к нему (массиву), как положено.

Раджаб bro

Вот правильный ответ надо было массив вписать


Uses crt;
const n=23;
Var
i:integer;
M,D:real;
a:array[1..n] of real;
Begin
M:=0;
D:=0;
For i:=1 to n do
begin
if i>17 then a[i]:=sin(i) else a[i]:=cos(sqr(i))/sin(sqr(i));
M:=M+a[i];
D:=D+sqr(a[i]);
end;
M:=M/n;
D:=D/n-sqr(M);
for i:=1 to n do
writeln(a[i],' ');
writeln('M=',M:0:5);
writeln('D=',D:0:5);
End.