A) program a78; AB
vari, s : integer; sr : real;
D
)
consta : array [1..6] of integer = (1,7,3,6,0, 10);
begin
s:= 0;
for i:=1 to 6 do
s:=s + a[i];
sr :=s/6;
writeln(' sr =', sr)
end.
Решение: :
​

Olgotata    2   21.01.2021 12:27    6