Какие структуры алгоритма обеспечивают выполнение одного из двух возможных действий : a) логические b) Линейные с ) Цыклические d) последователные е) любые

a) логические

Объяснение:

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

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

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

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

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

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

ВВОД  

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

ВЫВОД  

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

Объяснение:

a)

const n=5;

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

i,j,k,s:integer;

begin

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

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(3)-2;

write(a[i,j]:4);

end;

writeln

end;

for j:=1 to n do

begin

k:=0;

for i:=1 to n do

if a[i,j]<0 then k:=k+1;

if k=n then

begin

s:=s+1;

if s=1 then write ('Номера столбцов, все элементы которых отрицательны: ');

write (j,' ')

end

end;

if s=0 then write ('Столбцов, все элементы которых отрицательны - нет');

end.

б)

const n=5;

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

i,j,kp,ko:integer;

begin

for i:=1 to n do

for j:=1 to n do read (a[i,j]);

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

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:4);

writeln

end;

for j:=1 to n do

begin

ko:=0;

kp:=0;

for i:=1 to n do

begin

if a[i,j]<0 then ko:=ko+1;

if a[i,j]>0 then kp:=kp+1

end;

if ko=n then writeln ('В ',j,' столбце все элементы отрицательные');

if kp=n then writeln ('В ',j,' столбце все элементы положительные')

end

end.