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

Ronni05 Ronni05    2   17.03.2019 08:10    0

Ответы
Golovina077 Golovina077  07.06.2020 03:09

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;

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика