Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
Роман, козак,коза,Канада, мак,Рома,корова.
Период = 7249 - четыре(4) цифры
144 : 4= 36
после запятой позиции цифр: (период начинается со 2-ой позиции)
1 2 3 4 5 ..... 142 143 144 145
3 7 2 4 9 .... 7 2 4 9
ответ 4