{Файл 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 a: array[1..n] of integer; sa: real; k: integer; i: byte; begin sa:=0; k:=0; for i:=1 to n do begin; read (a[i]); if a[i] mod 4 =0 then begin sa:=sa+a[i]; k:=k+1; end; end; sa:=sa/k; writeln; writeln ('Среднее значение элементов, кратных четырем, = ',sa); end. ---------------------------------- Пример: 4 6 8 10 12 16 14 18 20 22 Среднее значение элементов, кратных четырем, = 12