Ответ(ы) на вопрос:
Гостьconst g=9.8;
const d=1200;
var p,h: array [1..6] of real;
i:integer;
begin
for i:=1 to 6 do begin
write('h[',i,']= ');
readln(h[i]);
end;
for i:=1 to 6 do begin
p[i]:=d*g*(h[i]);
writeln('при h = ',h[i],' получается ',p[i]);
end;
end.
Не нашли ответ?
Похожие вопросы