Ведите в массив 7 чисел-значений давления, измеренного в миллиметрах ртутного столба. Преобразуйте данные значения в значения, измеренные в килопаскалях (1 мм. рт. ст. = 0.133 кПа). результат вывести на экран через пробел.

Question

Информатика

Миланка

16 марта, 10:08

Ведите в массив 7 чисел-значений давления, измеренного в миллиметрах ртутного столба. Преобразуйте данные значения в значения, измеренные в килопаскалях (1 мм. рт. ст. = 0.133 кПа). результат вывести на экран через пробел.

+3

Ответы (1)

Знаете ответ?

Луконя · Answer 1

Uses crt;

const n=7;

var a:array[1 ... n] of real;

i:integer;

begin

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

begin

a[i]:=a[i]*0.133;

write (a[i],' ') ;

end;

end.