pascal abc

Никита Зыков

как вывести ответ программы в виде таблицы
program upr;
uses CRT;
var h, R:array[1..6]of integer;
m,s,p :array[1..6]of real;
d,i:integer;
g,msum:real;
begin
g:=9.8;
d:=1200;
writeln('введите радиус цилиндров через пробел');
for i:=1 to 6 do
read(R[i]);
writeln('введите высоту цилиндров через пробел');
for i:=1 to 6 do
read(h[i]);
for i:=1 to 6 do

begin
p[i]:=d*g*h[i];
writeln('давление ',i,' сосуда равно ',p[i]);
end;
writeln;
msum:=0;
for i:=1 to 6 do
begin
s[i]:=3.14*sqr(r[i]);
m[i]:=d*h[i]*s[i];
writeln(' масса жидкости ' ,i,' сосуда ',m[i]);
msum:=msum+m[i];
end;
writeln;
write('суммарная масса жидкости равна ',msum);
end.

Никита Зыков 10 месяцев назадСпасибо 0
1 чел.