Составьте программу вычисления силы давления, действующей на пол со стороны стола массой m, если суммарная площадь (s) опоры ножек стола 100 см2, (g=9,8)

103

144

Посмотреть ответы 1

Ответы на вопрос:

irinaantipina

Информатика

4,5(88 оценок)

Var a: array [1..10] of integer; i, k: integer; s: real; begin for i: =1 to 10 do a[i]: =random(20); write('массив: '); for i: =1 to 10 do write(a[i], ', '); writeln; s: =0; for i: =1 to 10 do s: =s+a[i]; s: =s/10; writeln('са чисел: ', s); k: =0; for i: =1 to 10 do if a[i] > s then k: =k+1; write('кол-во элементов массива, превышающих са: ', k); end. *** примерный вывод: массив: 9, 1, 4, 16, 19, 14, 16, 6, 11, 16, са чисел: 11.2 кол-во элементов массива, превышающих са: 5