дан массив значений расстояния L в сантиметрах . Преобразовать значения , превышающие 100 см в метры , и округлить до целых .
5-9 класс
|
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.
{но в выводе он наравне с метрами будет выводить и не преобразованные сантиметры}
Другие вопросы из категории
Читайте также
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.