Задача на паскале

[skyline1984]

В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

[Vol89]

Интересный материал по турбо, готовые программы - внешка

[goH]

а чем проблема?

var a:array [1..10] of integer; // задаем массив от 1 до 10

i, buff: integer; // задаем переменные

i - счетчик

buff - временная переменная для хранения данных

begin // думаю, тут и так понятно

for i:=1 to 10 do read(a); // выполняем чтение массива

for i:=2 to 10 do if not odd(i) then // ф-я odd -- проверка на нечетность

если что можно использовать условие i mod 2 =0

т.е. если элемент на четной позиции

begin // начинаем менять местами необходимые элементы

buff:=a; // во временную переменную заносим текущий элемент

a:=a[i-1]; // переносим предыдущий элемент на место текущего

a[i+1]:=buff; // переносим на место предыдущего элемента

end;

for i:=1 to 10 do write(a); // вывод массива

end. // конец программы

)))

код написал навскидку, так что если что, по шапке не стучать )))

если остались вопросы пиши в аську 574-153-777

[Go-ger]

Помогите пожайлуста дописать программу которая: Вычисляет суммы элементов четных строк матрицы

Вот недописанная программа:

const n=7;

var a: array [1..n,1..n] of integer ;

i,j,s1,s2 : integer ;

begin

for i:=1 to n do begin

for j:=1 to n do begin

a[i,j] :=i*j;

write(a[i,j]:5);

end;

writeln

end;

s1:=0;s2:=0;

?

end;

writeln (????);

end.

Зарание спасибо

[Lakers]

i=2;

while i

for j:=1 to n do

s1=s1+a[i,j];

i=i+2;

end;

writeln(s1);

[Go-ger]

Lakers спасибо