Даны числа b1, b2, …, b9. определите среднее арифметическое тех из них, которые больше 10. язык: pascal

Var a,b,c,d: integer; begin writeln('введите 9 чисел '); d: =9; b: =0; while (d< > 0) do begin read(a); if (a> 10) then begin b: =a+b; c: =c+1; end; d: =d-1; end; writeln('среднее арифметическое ',b/c); end.

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

 

 

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт