Тема массивы, язык паскаль.
Составьте программу которая меняет местами первый и девятый элементы массива(Массив задается с клавиатуры ,количество элементов 17)
Составьте программу которая меняет местами первый и девятый элементы массива(Массив задается с клавиатуры ,количество элементов 17)
More Questions From This User See All
Answers & Comments
var a:array [1..17] of integer;
i:integer;
begin
for i:=1 to 17 do read(a[i]);
i:=a[1];
a[1]:=a[9];
a[9]:=a[1];
for i:=1 to 17 write(a[i]);
end.