PetryxaMakvin
19.05.2023 12:20

Написать программу в тетрадь или на компьютере в программе для вычисления выражения по заданной блок-схеме:


Написать программу в тетрадь или на компьютере в программе для вычисления выражения по заданной блок
Написать программу в тетрадь или на компьютере в программе для вычисления выражения по заданной блок

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
FoxyzSuper
06.05.2023 19:08
Круговорот воды в природе-процесс циклического перемещения воды в земной биосфере. Состоит из испарения воды, переноса паров воздушными течениями, их конденсации, атмосферных осадков и переноса воды в реках и других водоёмах. Большая часть воды испаряется с поверхности мирового океана.

Моря теряют из-за испарения больше воды, чем получают с осадками, на суше — положение обратное. Вода непрерывно циркулирует на земном шаре, при этом её общее количество остаётся неизменным.

Три четверти поверхности земного шара покрыты водой. Водную оболочку Земли называют гидросферой. Большую её часть составляет соленая вода морей и океанов, а меньшую-пресная вода озер, рек, ледников, грунтовые воды и водяной пар.На земле вода существует в трех агрегатных состояниях: жидком, твердом и газообразном. Без воды невозможно существование организмов. В любом организме вода является средой, в которой происходят химические реакции, без которых не могут жить организмы. Вода является самым ценным и самым необходимым веществом для жизнедеятельности живых организмов.Постоянный обмен влагой между гидросферой, атмосферой и земной поверхностью, состоящий из процессов испарения, передвижения водяного пара в атмосфере, его конденсации в атмосфере, выпадения осадков и стока, получил название круговорота воды в природе. Атмосферные осадки частично испаряются, частично образуют временные и постоянные водоемы, частично-просачиваются в землю и образуют подземные воды.

0,0(0 оценок)
Ответ:
Ashmalikova
02.05.2020 19:16
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота