В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Flispide
Flispide
17.06.2020 07:22 •  Информатика

Таблица стоимости перевозок устроена следующим образом: числа, стоящие на пересечениях строк и столбцов таблиц, означают стоимость перевозок между соответствующими со- седними станциями. если пересечение строки и столбца пусто, то станции не являются соседними. стоимость пере- возок по маршруту складывается из стоимостей перевозок между соседними станциями. перевозки между населёнными пунктами a, b, c, d, e осуществляют три компании, пред- кака ставившие стоимость своих услуг в табличной форме. какая компания обеспечивает минимальную стоимость перевозок из а в в? ​

Показать ответ
Ответ:

Это звуки, запахи, прикосновение.

Выживание популяции животных во многом базируется на обмене информационными сигналами между членами одной популяции. Целесообразное поведение живых организмов строится на основе получения информационных сигналов.

Язык хвостов у волков например.

Животные имеют нервную систему, управляющую всеми стадиями информационного процесса: восприятия, передачи, обработки и использования информации.

В отличие от растительного мира, животные могу передавать информацию друг другу.

Объяснение:

0,0(0 оценок)
Ответ:
Vihenka7
Vihenka7
02.10.2022 15:13

const N = 8;

var i,min,max: integer;

var a: array [1..N] of integer;

begin

write('Введите массив: ');

min:=0;

max:=0;

for i:=1 to N do  

 begin

 readln(a[i]);

 if (a[i] mod 2 = 0) and (a[i] mod 10 = 2) then

   begin

   if (max=0) then max:=a[i]

   else if (a[i]>max) then  max:=a[i];

   end;

 if (a[i] mod 2 <> 0) and (a[i] mod 10 = 5) then

   begin

   if (min=0) then min:=a[i]

   else if (a[i]<min) then  min:=a[i];

   end;  

 end;

for i:=N downto 1 do  

 begin

 if (a[i]>(max-min)) then a[i]:=a[i]-(max-min);

 write(a[i],' ');

 end;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота