var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
Основная формула в таблице имеет вид:
=($A5*B$4+$A5)+A$5*B$4
Полное решение - в прилагаемом файле.
var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.
Sub m2()
Cells.Clear
Dim n As Integer, i As Integer, min As Integer
n = InputBox("n(>5) = ")
Cells(1, 1).Value = "n = " + Str(n)
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox("a(" + Str(i) + ")")
Next i
Cells(2, 1).Value = "Исходный массив"
Range(Cells(3, 1), Cells(3, n)).Value = a
min = a(1)
For i = 2 To n
If a(i) < min Then min = a(i)
Next i
Cells(4, 1).Value = "min = " + Str(min)
Cells(5, 1).Value = "Полученный массив"
For i = n - 4 To n
a(i) = min
Next i
Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub
1) 8* 70=560 бит =70 байт- сообщение при 8-ми битной кодировки
2) 16*70=2*560 бит =2*70 байт =140- сообщение при 16-ти битной кодировки
3) 140-70=70 байт (увеличение на 70 байт)
ответ 70 байт