Кирилл
6 год назад
Тема массивы, язык паскаль.Составьте программу которая меняет местами первый и девятый элементы массива(Массив задается с клавиатуры ,количество элементов 17)
ОТВЕТЫ
Katerina
Oct 24, 2020
program z1;
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.
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.
105
Смежные вопросы:
