Предмет: Информатика,
автор: Yulia9841
дан массив значений расстояния L в см. преобразовать значения превышающие 100 см. в метры и округлить до целых
Ответы
Автор ответа:
0
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;
Интересные вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: mitykolin
Предмет: Математика,
автор: 08062002
Предмет: Алгебра,
автор: Flavio