М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kurnikova2
kurnikova2
10.12.2021 08:15 •  Информатика

Оберіть операції редагування тексту (символів) видалення символів

колір символів

вставляння символів

накреслення символів (курсив, напівжирним, підкресл​

👇
Открыть все ответы
Ответ:
iumpovavika85
iumpovavika85
10.12.2021

program z1;

var a:array [1..100,1..100] of integer;

b:array [1..100] of integer;

n,m,i,j,s:integer;

begin

write ('Введите количество строк (n<=100) ');

read (n);

write ('Введите количество столбцов (m<=100) ');

read (m);

writeln ('Массив А');

for i:= 1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=Random(19)-9;

write(a[i,j]:4)

end;

writeln

end;

for j:= 1 to m do

begin

s:=0;

for i:=1 to n do if  (a[i,j]>0) and (a[i,j] mod 2 = 0) then s:=s+a[i,j];

b[j]:=s

end;

writeln ('Массив B');

for j:= 1 to m do write (b[j]:4)

end.

4,6(74 оценок)
Ответ:
optymus
optymus
10.12.2021

ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:  

Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.  

НАЗНАЧЕНИЕ ПРОГРАММЫ:  

Расчет количества рулонов обоев для указанной комнаты.  

ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:  

Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.  

ВВОД  

Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).  

ВЫВОД  

Выводится количество рулонов n

Объяснение:

4,6(80 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ