Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.
Название словаря-Информатика и икт
Составитель-Л.Л. Босова
Издательство-Бином
Год издания-2011
Число страниц-209
Число строк на странице-39
Число символов в строке-61
Обьем 1 страницыв байтах-61*39=18579
Обьем всего словаря в байтах 18579*209=3883011
В килобайтах 37905
В мегабайтах 937
0 1 2 3 4 5 6 7 вот пожалуйста