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

Question

Информатика

Генриетта

26 июля, 08:54

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

+4

Ответы (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;