Var x,y,z:integer;
sr:real;
begin
read(x,y,z);
sr:=(x+y+z)/3;
writeln(sr:2:1);
end.
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№1</u>
begin
var a:=ArrRandom(8,-20,20); a.Println;
a.Transform(t->t mod 5=0?100:t>0?-100:t); a.Println
end.
<u>Пример</u>
-7 -15 8 -19 -16 -10 -16 14
-7 100 -100 -19 -16 100 -16 -100
<u>//№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
a.Transform(t->t.IsEven?2:1); a.Println
end.
<u>Пример</u>
n= 17
40 89 88 55 73 76 82 86 10 76 3 90 83 94 90 83 75
2 1 2 1 1 2 2 2 2 2 1 2 1 2 2 1 1
111, 34, 76, A2 -------------------------
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>