Ответ:
1-1 2 - 7 3-1 4-4 6-6 7-8 8-3.
Объяснение:
Как то так)
Const
N = 8;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
Begin
Read(A[i]);
S:=S+A[i];
End;
WriteLn('Sr = ',S/N);
End.
Пример работы программы:
Введите массив A(8): 1 2 3 4 5 6 7 8
Sr = 4.5
1)1
2)3
3)2
4)4
5)название
6)1-а 2-в 3-б
7)2
8)4
9)3
10)2
11)система вложенных папок
12)c
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(1,ReadInteger('n=')).Println
end.
<u>Пример</u>
n= 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20