Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью...

Question

Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200кг\м³.

Составьте программу, которая вычисляет давление столба жидкости на дно сосудов p=dgh( g=9,8м\с²)

6 сосудов( высота 1сосуда 7, высота 2 сосуда 4, высота 3 сосуда 10, высота 4 сосуда 6, высота 5 сосуда 5, высота 6 сосуда 3)

Answer 1

const

 a:array[1..6]of longint=(7,4,10,6,5,3);

var

 i:longint;

begin

for i:=1 to 6 do write(9.8*a[i]*1200,' ');

writeln;

end.