Написать блок-схему: Даны натуральные N и M. Получить все меньшие N, квадрат суммы цифр которых равен M.

//Задан одномерный массив, заполненный 15-тью случайными целыми числами из интервала от -20 до 20.  

//Составь программу, выполняющую следующие действия: Заполнение массива, вывод на экран всех элементов исходного массива в строчку через пробел,  

//сортировка элементов массива по возрастанию, вывод полученного в результате массива на экран с новой строки через пробел.  

program massiv;

var m:array[1..15] of integer;

   i,j:byte;

   t:integer;

   

BEGIN

//заполнение случайными числа в диапазоне [-20;20]

//random(41) выдает случ. значение от 0 до 40, если вычесть -20 с концов этого отрезка получится от -20 до 20

for i:=1 to 15 do m[i]:=random(41)-20;

//вывод  полученного массива на экран

for i:=1 to 15 do write(m[i],' ');

writeln;//переход на следующую строку

//сортировка пузырковым методом

for i:=1 to 14 do

    for j:=i+1 to 15 do

        if (m[i]>m[j]) then begin

          t:=m[i]; m[i]:=m[j]; m[j]:=t;//обмен элементов массива местами

        end;

writeln('Остортированный массив');

//вывод сортированного массива на экран

for i:=1 to 15 do write(m[i],' ');

 

 

END.

Объяснение:

Ниже этого меню, находится список звуков, которые присутствуют у выбранного спрайта или у сцены. Щёлкните по звуку в списке звуков, если хотите с ним дальше работать. Над ним появится крестик. Щёлкните по нему если хотите удалить звук.Справа от списка звуков расположен редактор выбранного звука. Нажмите на значок треугольника чтобы звук. Нажмите на значок квадрата чтобы остановить звук. Нажмите на значок круга чтобы записать звук с микрофона и добавить его к выбранному звуку. Кликните по надписи "Правка" или "Эффекты" для изменения звука, или добавления к нему различных эффектов. Но прежде чем сделать это, выделите часть звука, которую хотите изменить.