формирование масива с матрицы

[Naive]

В первой форме, между end и else точка с запятой не ставится.

[MD1]

Если точку с запятой не поставить выходит ошибка "." expected
Требует поставить точку после второго end(а) а если ее поставить, то выходит два end(а) с точкой. а условие игнорируеться и выполняются две ветки.

[NetSpace]

А вот после слова ELSE одна строчка должна выполняться или все четыре?

else for i:=1 to n do t[i]:=a[i,n-i+1];
for i:=1 to n do for j:=1 to n do t1[i]:=a[i,i];
for i:=1 to n do t2[i]:=t[i]+t1[i]; writeln;
for i:=1 to n do write (t2[i]);
end.

или

else
begin
   for i:=1 to n do t[i]:=a[i,n-i+1];
   for i:=1 to n do for j:=1 to n do t1[i]:=a[i,i];
   for i:=1 to n do t2[i]:=t[i]+t1[i]; writeln;
   for i:=1 to n do write (t2[i]);
end;
end.

выходит, в первом случае он последние 3 цикла по-любому посчитает, а вот во втором случае не всегда, только если условие выполнится

[MD1]

все.

Удачьно.

if s>max then begin

k:=1;
for i:=1 to 1 do for j:=1 to n do begin b[k]:=a[i,j]; k:=k+1; end;
writeln; for i:=1 to n{k-1} do write (b[i]:4); writeln;
for i:=1 to n do  b2[i]:=a[i,n-i+1];
for i:=1 to n do write (b2[i]:4); writeln;
for i:=1 to n do b3[i]:=b2[i]*b[i];
for i:=1 to n do write ('huynyaAAA',b3[i]:4);  end

else begin

for i:=1 to n do  t[i]:=a[i,n-i+1];
for i:=1 to n do for j:=1 to n do t1[i]:=a[i,i];
for i:=1 to n do t2[i]:=t[i]+t1[i]; writeln;
for i:=1 to n do write ('huynyaBBB',t2[i]);   end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MD1]

У меня в задании есть некое условие.
вот часть из него lg (|j-i|) где i-по строчкам; j-с по столбцам.
так как матрица квадратная i=j, а из этого следует что выражение lg (|j-i|) ложно ?

[Naive]

Обычно i и j — это не размерность матрицы, а произвольные строка и столбец.
То есть lg (|j-i|) недействительным только для главной диагонали

[MD1]

for i:=1 to n do for j:=1 to n do readln (a[i,j]);
for i:=1 to n do for j:=1 to n do
a[i][j]:=ln(abs(j)-abs(i))/ln;(10)

а теперь?

[Naive]

Компилятор то молчит чтоли?
1. a[i][j]:=ln(abs(j)-abs(i))/ln;(10) — перед этим надо поставить проверку на неравенство I и j, иначе программа рухнет на первой же итерации второго цикла.
2. abs(j)-abs(i) — по условию было |j-i|, а не |j|-|i| — тут вообще нет смысла, оба числа и так положительны
3. ln;(10) — даже не знаю, что сказать насчет этого.

[MD1]

Компилятор одобряе. Ошибка 207 выходит после ввода элементов матрицы.
Задание вообще вот такое)))

a[i,j]=(j – 5,7) (i+j)5 lg (|j-i|)-(|5,3 - e2j| )(-2)j

Возможно ошибка в самом задании.
три раза будет встречатся i=j если розмерность матрицы 3?

[MD1]

Вот еще одно.
Нужно просканировать одномерный масив и перемножить(просумировать) между собой номера отрицательных элементов масива.


Вот коечто наклепал:

for i:=1 to n do begin  if t2[i]<0 then www:=www+i; end;
writeln ('Function',www);

for i:=1 to n do if t2[i]<0 then www:=www*i; end;
writeln('Funcrion',www);

Есть ли другие пути для реализации?