Составить программу для вычисления элементов одномерного массива по формуле

@СерыйФ · Регистрация: 16.12.2013

Author24 — интернет-сервис помощи студентам

http://vk.com/doc140700925_251390780 ;

Выдает ошибку:

Pascal

program lal;
var
i, j, k, n, c:integer;
S:real;
b, a:array[1..100] of real;
begin
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',j,']=');readln(a[i, j]);
end;
S:=0;
for i:=1 to n do
for j:=1 to n do begin
S:=ln(abs(S+cos(a[i, j])));
end;
write('c=');readln(c);
for k:=1 to c do begin
b[k]:=(sqrt(k)+1)/ln(abs(S+cos(a[i, j])));
write('b[',k,']=');
readln(b[k]);
end;
end.

@ermolay · 17.12.2013, 01:53

Комментарий модератора

картинку прикладывайте к сообщению, таковы правила форума. как это сделать: https://www.cyberforum.ru/abou... 03521.html
тем более, что "Данный документ доступен только его владельцу." )

Опции темы