Задан массив из 10 целых чисел. Обменять значениями третий и предпоследний элемент массива.

Question

Информатика

Груша

6 октября, 09:17

Задан массив из 10 целых чисел. Обменять значениями третий и предпоследний элемент массива.

+5

Ответы (2)

Знаете ответ?

Лександр · Answer 1

var

a: array [1 ... 10] of integer;

x, i: integer;

begin

writeln ('Заполните массив: ') ;

for i:=1 to 10 do read (a[i]) ;

x:=a[3];

a[3]:=a[9];

a[9]:=x;

for i:=1 to 10 do write (a[i]:4) ;

end.

Цвета · Answer 2

Mas - имя массива

Mas[3]: = mas[3] + mas[10];

Mas[10]:=mas[3]-mas[10];

Mas[3]:=mas[3]-mas[10];

Всё, это поменяет местами значения