)) нужно составить примеры алгоритмов (циклический,линейный,разветляющийся) и описать их словесно(3примера) заранее)

Круговорот воды в природе-процесс циклического перемещения воды в земной биосфере. Состоит из испарения воды, переноса паров воздушными течениями, их конденсации, атмосферных осадков и переноса воды в реках и других водоёмах. Большая часть воды испаряется с поверхности мирового океана.

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

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

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.