Паскаль, помогите!!! Ввести с клавиатуры массив из 12 ...
Паскаль, помогите!!! Ввести с клавиатуры массив из 12 элементов.Переставить первый и последний элемент. Третий заменить на восьмой
Есть ответ
18.12.2022
418
Ответ
const
n=12
var
a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do readln(a[i]);
k:=a[1];
a[1]:=a[n];
a[n]:=k;
a[3]:=a[8];
for i:=1 to n do write (a[i],' ');
readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022