1.найти количество натуральных чисел, не превышающих 100 и кратных 5. 2.создать массив а из 10 элементов, принадлежащих промежутку (-50; 50). вывести полученный массив на экран. подсчитать сумму положительных и количество отрицательных элементов массива.все с паскаля))

1. program yolo; uses crt; var x, count, amount, n: integer; begin  clrscr;   amount: =0; count: =0;   writeln('введите кол-во чисел необходимых ввести.');   readln(n);   while amount< n do    begin        inc(amount);         writeln('введите число.');       readln(x);         if (x< =100) and (x mod 5=0) then     inc(count);   end; clrscr; if count> 0 then writeln('количество чисел, кратных 5 и не больших 100: ', count)   else writeln('среди введёных чисел не было кратных 5 и не больших 100.');   readln; end.2.program yolo; uses crt; const n=10; var mass: array [1..n] of integer;       i, summposit, amountnegat: byte;   begin  clrscr;   summposit: =0;   amountnegat: =0;   writeln('массив чисел из диапозона [-50; 50]: ');   for i: =1 to n do  begin    mass[i]: =random(101)-50;     write(mass[i], ' ');     if mass[i]> 0 then inc(summposit, mass[i])    else if mass[i]< 0 then inc(amountnegat);   end;   writeln;   if summposit> 0 then  writeln('сумма положительных элементов массива: ', summposit)  else writeln('в массиве нету положительных элементов.');   if amountnegat> 0 then  writeln('количество отрицательных элементов массива: ', amountnegat)    else writeln('в массиве нету отрицательных элементов.');   readln; end.

основы кибернетики были заложены по логике американского норберта винера, опубликованными в 1948 г.кибернетика  – это наука об общих принципах в различных системах: технических, биологических, социальных и др. является центральным понятием кибернетики, и оно пронизывает все сферы деятельности человека и общества.часто возникает путаница в понятиях "информатика" и "кибернетика". существует спорное мнение, что информатика является одним из направлений кибернетики.

информатика появилась развитию компьютерной техники, базируется на ней и без нее немыслима. кибернетика же развивается сама по себе, строя различные модели объектами, хотя и активно использует все достижения компьютерной техники.

основная концепция, заложенная н. винером в кибернетику, связана с разработкой теории сложными динамическими системами в разных областях человеческой деятельности. кибернетика существует независимо от наличия или отсутствия компьютеров.

информатика занимается изучением процессов преобразования и создания новой информации более широко. поэтому может сложиться впечатление об информатике как о более емкой дисциплине, чем кибернетика. однако, с другой стороны, информатика не занимается решением проблем, не связанных с использованием компьютерной техники.можно сказать, что кибернетика и информатика различаются в расстановке акцентов. если в информатике важны свойства информации и аппаратно-программные средствах ее обработки, то в кибернетике – это разработка концепций и построение моделей . информатика и кибернетика – разные науки, сферы деятельности которых, однако, сильно пересекаются.

  – это целенаправленная организация того или иного процесса, протекающего в системе.процесс – это информационный процесс, который включает в себя сбор информации, ее переработку и анализ, принятие решений, выработку воздействий и их доведение до объектов .каждая фаза процесса протекает во взаимодействии с окружающей средой при воздействии разного рода помех.через объект проходят в основном материальные потоки и в значительно меньшей степени – информационные; в то же самое время через орган проходят только информационные потоки. именно поэтому процесс является информационным процессом, а все люди, занятые в сфере , имеют дело только с информацией.