Question

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

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;