{Файл 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.
Const N = 10; Var C:array[1..N] of integer; i,k,Max:integer; P:real; Begin Randomize; P:=1; k:=0; Max:=1; WriteLn('C(',N,') в столбик:'); For i:= 1 to N do Begin C[i]:=random(31)-15; WriteLn(C[i]:4); if i mod 2 = 0 then P:=P*C[i]; if C[i] > 0 then k:=k+1; if Abs(C[i]) > Abs(C[Max]) then Max:=i; End; Write('C(',N,') в строку:'); For i:= 1 to N do Write(C[i]:4); WriteLn; WriteLn('P = ',P); WriteLn('k = ',k); WriteLn('Max = ',C[Max],'[',Max,']'); ReadLn; End.