Const N = 5; var i: integer; a: array[1..N * 2 + 1] of integer; begin writeln('Исходный массив: '); for i := 1 to 2 * N do begin a[i] := Random(99) + 1; write(a[i] : 5); end; for i := 2 * N + 1 downto N + 1 do a[i] := a[i - 1]; a[N + 1] := 0; writeln(); writeln('Полученный массив: '); for i := 1 to 2 * N + 1 do write(a[i] : 5); end.
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer; begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.