Paskal двумерные массивы

[TuuuZ]

Дана задача
если элемент двумерного массива четный, тосчитаем их сумму,
если не четный, то удваиваем их

[ОДИНОЧЕСТВО В СЕТИ]

s:=0;
for i:=1 to n do
for j:=1 to m do
if odd(a[i,j]) then a[i,j]:=2*a[i,j];
else s:=s+a[i,j];

[sorcerer]

Помагите решить задачу
Дан двумерный массив. Сдвинуть циклически элементы массива вправо в каждой строке.

[Alex Cones]

Уважаемый sorcerer!
1) Игнорирование правил форума карается по закону гор! Один вопрос - одна тема.
2) Просто положив задачу чего вы ожидаете? Что её решат за Вас? Если да, готовим деньги, идем ко мне в асю. Если нет, выкладывайте свой код и уточняйте, что именно не работает!

2ОДИНОЧЕСТВО В СЕТИ, ну хоть бы намекнула TuuuZ`у : "больше так не делай". Не форум, а решалка какая то получается.

[sorcerer]

Сообщение от Alex Cones

Уважаемый sorcerer!
1) Игнорирование правил форума карается по закону гор! Один вопрос - одна тема.
2) Просто положив задачу чего вы ожидаете? Что её решат за Вас? Если да, готовим деньги, идем ко мне в асю. Если нет, выкладывайте свой код и уточняйте, что именно не работает!

2ОДИНОЧЕСТВО В СЕТИ, ну хоть бы намекнула TuuuZ`у : "больше так не делай". Не форум, а решалка какая то получается.

вот как у меня
program zadacha;
uses crt;
var a:array[1..100] of real;
n,i,j,k:integer;
begin
clrscr;
writeln('n ');
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
for j:=i to n do
write(a[j]:5:2);
k:=1;
while k<i do
begin
write(a[k]:5:2);
k:=k+1;
end;
writeln;
end;
readln;
end.