дан массив значений расстояния L в см. преобразовать значения ...
дан массив значений расстояния L в см. преобразовать значения превышающие 100 см. в метры и округлить до целых
Есть ответ
18.12.2022
315
Ответ
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;
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022