Дан массив значений расстояния L в сантиметрах. Преобразовать значения, превышающие 100 см в метры, и округлить до целых.

Question

Информатика

Белла

20 июля, 12:09

Дан массив значений расстояния L в сантиметрах. Преобразовать значения, превышающие 100 см в метры, и округлить до целых.

+4

Ответы (1)

Знаете ответ на вопрос?

Павлиня · Answer 1

Uses crt;

const

N=30;

var L:array [1 ... N] of integer;

i:integer;

begin

for i:=1 to N do

begin

readln (L[i]) ;

if L[i]>=100 then L[i]:=trunc (L[i]) ;

end;

for i:=1 to N do write (L[i]:3) ;

end.

{но в выводе он наравне с метрами будет выводить и не преобразованные сантиметры}