Привет, вот ответ: 1) Школьник читает книгу. Источник: учебник с текстом. Приёмщик: мальчик. Односторонний. 2) Бабушка читает письмо. Источник: письмо. При ёмщик: бабушка. Односторонний. 3) Мальчик просыпается от звонка будильника. Источник: будильник. Приёмщик: мальчик. Односторонний. 4) Разговаривают подруги Таня и Лена. Источник: Таня (Лена Приёмщик: Лена (Таня). Двусторонний. 5) Учитель объясняет новый материал классу. Источник: учитель. Приёмщик: класс (ученики). Односторонний. 6) Регулировщик управляет потоком машин и пешеходов. Источник: Регулировщик (Пешеходы и машины). Приёмщик: пешеходы и машины (Регулировщик). Двусторонний. 7) Человек читает объявление в газете. Источник: газета. Приёмщик: человек. Односторонний. 8) Завуч вывешивает листочек с изменениями в расписании уроков. Источник: Завуч. Приёмщик: учителя и ученики. Односторонний. 9) Диспетчер сообщает, что автобусный рейс отменяется. Источник: диспетчер. Приёмщик: пассажиры. Односторонний. 10)Вывешен знак, запрещающий проезд по улице. Источник: знак. Приёмщик: водители. Односторонний. 11)Мальчик получил пригласительный билет на ёлку. Источник: билет. Приёмщик: мальчик. Односторонний.
Ответы
Если не соблюдать технику безопасности может возникнуть замыкание и пожар или можно что-либо сломать себе, повредить технику. Основными являются - не вставать по время работы за компьютером, а так же не есть за компьютерным столом/не приносить еду в класс. Неправильная посадка может привести к искривлению и другим многочисленным проблемам, если при неправильной посадке зацепить какой-либо провод можно нанести вред технике и себе. Рекомендаций не знаю сорь, но можешь написать что нельзя есть за столом, раскачиваться на стуле и.т.д
Var a:array[1..10] of integer;
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: