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

Question

Информатика

Ефремий

27 августа, 23:06

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

+2

Ответы (1)

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

Элюша · Answer 1

var masiv:array[1 ... 10000] of longint; i:longint;

begin

(n = konetz massiva)

for i:=1 to n do

if masiv[i]=>100 then

begin

masiv[i]:=round (masiv[i]/100) ;

write (masiv[i],' m | ') ;

end else

begin

write (masiv[i],' cm | ') ;

end;

readln;

end;