Дан массив значений расстояния l в см. преобразовать значения превышающие 100 см. в метры и округлить до целых
106
335
Ответы на вопрос:
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;
Популярно: Информатика
-
Nope228119.03.2020 11:35
-
VitaLevchenko200420.02.2022 17:13
-
Murat2006110.05.2021 09:05
-
lisi291222.09.2022 05:56
-
Amina14100209.09.2020 01:01
-
Bitco09.01.2021 13:30
-
bartezfabn24.01.2023 21:19
-
Renavalion15.03.2022 23:03
-
Никита56383101.02.2022 13:17
-
Skinner5682501.02.2021 03:22