Паскаль, ! ввести с клавиатуры массив из 12 элементов.переставить - вопрос №29450812 от Feya2004 29.03.2021 18:27

Question

Информатика: Паскаль, ! ввести с клавиатуры массив из 12 элементов.переставить первый и последний элемент. третий заменить на восьмой

Feya2004 · Answer

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. ...