1. основы программирования. разработать программу на языкеpascalabc. в заданном одномерном массиве a[n] удалить все элементы, кратные наименьшему по величине элементу.2. программирование в іс. процедуры и функции в языкепрограммирования 1с.​

Из истории древнего мира нам известно, что уже тогда для определения численности населения государства, количества людей, годных к воинской службе, численности скотоводческих хозяйств, площади земельных наделов (участков) выполнялись постоянные расчеты. Эти данные использовались для начисления налогов, для призыва на воинскую службу и т.д. В результате изменения и развития общества возникли новые методы проведения вычислений. В середине ХVII века в Англии возникло научное течение «Политическая арифметика», направленное на ведение учета различных изменений и анализа развития общества. Одновременно с этим в Германии появилась школа «Обязательная статистика». Благодаря таким шагам возникло новое направление науки – статистика. Слово «статистика» происходит от латинского status – «состояние дел». В настоящее время статистика является самостоятельной общественной наукой.

  ​В процессе исследования развития общества получен значительный объем информации. Эту информацию необходимо было собрать, обработать, упорядочить и оформить. На примере выполнения этих работ рассмотрим применение табличного процессора MS Excel.

Объяснение:

сделай мой ответ лучшим

Uses graphabc; var f: boolean; //переменная для выхода из программы procedure keydown(key: integer); beginif key=vk_return then f: =false; //если нажата enter-меняем значение флагаwindow.caption: ='программа завершена'; end; var   x,y: integer;       r: real; beginf: =true; //программа включена на работуsetwindowsize(600,600); //квадратное окноwindow.caption: ='для окончания нажмите enter'; lockdrawing; r: =1; x: =windowwidth-round(50*r); y: =round(50*r); repeatwhile (y< windowheight-round(50*r))and f do  begin  r: =r+0.002;   window.clear;   sleep(1);   drawcircle(x,y,round(50*r));   moveto(round(x+50*r),y);   arc(x,y,round(10*r),220,320);   arc(x,y,round(30*r),220,320);   drawcircle(x-round(20*r),y-round(14*r),round(10*r));   drawcircle(x+round(20*r),y-round(14*r),round(10*r));   y: =y+1;   x: =x-1;   redraw;   onkeydown : = keydown; //если нажмем enter, сменится флаг на false   end;                   // и программа завершится   x: =windowwidth-round(50*r); y: =windowheight-round(50*r); while (y> =round(50*r)) and f do  begin  window.clear;   sleep(1);   r: =r-0.002;   drawcircle(x,y,round(50*r));   moveto(round(x+50*r),y);   arc(x,y,round(10*r),220,320);   arc(x,y,round(30*r),220,320);   drawcircle(x-round(20*r),y-round(14*r),round(10*r));   drawcircle(x+round(20*r),y-round(14*r),round(10*r));   y: =y-1;   x: =x-1;   redraw;   onkeydown : = keydown;   end; x: =windowwidth-round(50*r); y: =round(50*r); until   not f;   end.