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

          если ошибся,поправьте.

                                                  начало

                                 

                                                  вывод(указываем переменные,a,b.ну и т.д.)

 

                да                               условие(к примеру: a> =b)           нет                                                                            

 

          если х=a+b                                                                                 иначе х=a/b

 

                                                ну и дальше вывод,и конец.

                                        вывод

                                       

                                        конец.

Совершенное число - натуральное число, равное сумме всех своих собственных делителей (то есть всех положительных делителей, отличных от самого числа).   //pascal var   n, s, i: integer; begin   s : = 0;   readln(n);   // находим делители до n-1, увеличиваем сумму s на i,   // если i - делитель введенного числа   for i : = 1 to n - 1 do       if n mod i = 0 then s : = s + i;     if s = n then       writeln('cовершенное')   else          writeln('не совершенное'); end.

Const n = 10; var a: array[1..n]of integer;   min,imin,i,oldmin: integer; begin   //заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим минимальный элемент элемент   min: =100;   for i: =1 to n do begin       a[i]: =random(201)-100;       if a[i]< = min then       begin           min: =a[i];           imin: =i; //запомним index минимального       end;       write(a[i]: 5);   end;   writeln;     //в цикле сдвигаем элементы массива   //до индекса минимального включительно на   //одну позицию вправо   for i: =imin downto 2 do       a[i]: =a[i-1];       a[1]: =min;   //вывод элементов массива   for i: =1 to n do write(a[i]: 5);   end.