Question

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

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.
{но в выводе он наравне с метрами будет выводить и не преобразованные сантиметры}