Поменять местами элементы массиве с чётными номерами и нечётными номерами

@dareal · Регистрация: 25.11.2012

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

В заданном массиве А(8) поменять местами элементы с чётными номерами и нечётными номерами.

А={3.5;4.2;0.3;-5.1;2.8;0.4;5.8;9.1}

Pascal

program lab4var9;
uses crt;
var a:array[1..8] of integer;
i,n,k:integer;
begin
 for i:=1 to 8 do
 begin
        write(i, ')');
        readln (a[i]);
        end;
        for i:=1 to 8 do
                if i mod 2 = 0 then
                begin
                 k:=a[i];
                 a[i]:=a[i+1];
                 a[i+1]:=k;
        end;
for i:=1 to 8 do
writeln ('a[', i,']=', a[i]);
end.

@Black_Thorn · 08.12.2012, 18:26

Pascal

1
2
3

k:=a[i];
a[i]:=a[i-1];
a[i-1]:=k;

@dareal · 08.12.2012, 18:28 **[ТС]**

не помогло

@Black_Thorn · 08.12.2012, 18:50

массив должен быть real

Добавлено через 1 минуту
и переменная "к"

Добавлено через 1 минуту

Pascal

1 2	var a:array[1..8] of real; k:real;

@dareal 0 / 0 / 1 Регистрация: 25.11.2012 Сообщений: 14
	08.12.2012, 18:28 [ТС]	3
	не помогло 0

Опции темы