По информатике с ! введите с клавиатуры 10 целочисленных элементов массива x. выведите на экран значения корней и квадратов каждого из элементов массива. получите для массива среднее арифметическое. найти сумму элементов массива, имеющих нечетные номера.

Var
X:array[1..10] of integer;
i,sred,summ:integer;
begin
for i:=1 to 10 do begin
writeln('X[',i,']'):
readln(X[i]);
end;
for i:= 1 to 10 do writeln(sqr(A[i]));
for i:=1 to 10 do sred:=sred+A[i];
writeln('Sred.Arf.=',sred/10);
for i:=1 to 10 do if (i mod 2 <>0) then summ:=summ+A[i];
end.

1:
Вес текста = 59 * 16 бит = 944.0 бит = 118.0 байт = 0.115234375 Кбайт = 0.0001125335693359375 Mбайт
2:
Вес текста = 16 * 30 * 32 * 16 бит = 245760.0 бит = 30720.0 байт = 30.0 Кбайт = 0.029296875 Mбайт
3:
Вес символа = 25 * 8 * 1024 бит / (8 * 40 * 64 бит) = 10.0 бит
4:
Вес текста = 1024 * 64 * 64 * 8 бит = 33554432.0 бит = 4194304.0 байт = 4096.0 Кбайт = 4.0 Mбайт
5:
Вес текста = 52 * 16 бит = 832.0 бит = 104.0 байт = 0.1015625 Кбайт = 9.918212890625e-05 Mбайт
6:
Вес текста = 16 * 35 * 64 * 8 бит = 286720.0 бит = 35840.0 байт = 35.0 Кбайт = 0.0341796875 Mбайт

Во вложении файл с рабочей книгой MS Excel 2003

Sub abcd()
    Dim n As Integer, a(1 To 8) As Integer
    Dim r As Range
    n = 8
    imax = 1
    Set r = Range(Cells(1, 1), Cells(2, 8))
    r.ClearContents 'Очистка области
    r.Interior.Color = RGB(255, 255, 255) 'Очистка цвета заливки
    For i = 1 To n
        a(i) = Int(30 * Rnd)
        If a(i) > a(imax) Then imax = i
        Cells(1, i) = a(i)
    Next
    t = a(imax)
    Cells(1, imax).Interior.Color = RGB(204, 255, 255)
    Range(Cells(1, 1), Cells(1, imax - 1)).Interior.Color = RGB(255, 255, 153)
    For i = imax - 1 To 1 Step -1
        a(i + 1) = a(i)
    Next
    a(1) = t
    For i = 1 To n
        Cells(2, i) = a(i)
    Next
    Cells(2, 1).Interior.Color = RGB(204, 255, 255)
    Range(Cells(2, 2), Cells(2, imax)).Interior.Color = RGB(255, 255, 153)
End Sub