ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:
Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.
НАЗНАЧЕНИЕ ПРОГРАММЫ:
Расчет количества рулонов обоев для указанной комнаты.
ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:
Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.
ВВОД
Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).
ВЫВОД
Выводится количество рулонов n
Объяснение:
ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
