1) решить (тут и далее - на паскаль) поиска заданного пользователем значения в массиве из 100 элементов. пусть будет любой целочисленный тип. 2) решить переноса значений 1-го массива (задается пользователем или генератором random(x)) во второй. оба массива по 15-20 элементов. тип данных любой. 3) решить сортировки массива методом "пузырька". массив из 10 членов, значения целочисленные. ввод членов массива любой. решить,буду за

Будем считать, что числа n, m заранее известны.
Делать в Паскале динамические массивы - это очень большой геморрой.
1. PROGRAM Even
var i, j, P: integer;
var array A[1..n, 1..m] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i:=1 to n do // цикл по строкам
begin
  P:=1; // произведение четных чисел
  for j:=1 to m do // цикл по столбцам
  begin 
    if (A[i, j] mod 2 = 0) then P:= P*A[i, j]; // умножаем очередное четное число
  end; 
  A[i, m] := P; // вместо последнего числа записываем произведение четных
end; 
for i:=1 to n do
  for j:=1 to m do writeln (A[i, j]); // цикл вывода конечного массива 
END.

2.  PROGRAM MinMax
var i, j, Q, min, nmin, max, nmax: integer;
var array A[1..n, 1..m] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i:=1 to n do // цикл по строкам
begin
  min:=A[i, 1]; nmin:=1; max:=A[i, 1]; nmax:=1; // начальные значения
  for j:=1 to m do // цикл по столбцам
  begin  
    if (A[i, j] > max) then max:= A[i, j]; nmax = j;// устанавливаем максимум
    if (A[i, j] < min) then min:= A[i, j]; nmin = j;// устанавливаем максимум 
  end;
  Q:=A[i, nmin]; A[i, nmin]:=A[i, nmax]; A[i, nmax]:=Q; // меняем их местами
end;
for i:=1 to n do
  for j:=1 to m do writeln (A[i, j]); // цикл вывода конечного массива 
END.

3. PROGRAM Povorot 
var i, j, k, Q: integer;
var array A[1..n, 1..m], B[1..m, 1..n] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i=1 to m do // цикл по m строкам нового массива (их m, как столбцов в А)
begin
   for j:=1 to n do // цикл по n столбцам нового массива (как строк в А)
     B[i, j]:=A[j, n-i+1]; // формируем новый массив
end;
for i:=1 to m do
  for j:=1 to n do writeln (B[i, j]); // цикл вывода конечного массива 
END.

Уж так устроен человек, что один из главных занима­ющих его вопросов — вопрос «Что будет?». Каким будет будущее — светлым, мирным, счастливым, полным без­заботной радости и детского смеха или, наоборот, чер­ным, горьким и безрадостным?

Подобные вопросы вряд ли предполагают точные од­нозначные ответы. Ведь будущее отделено от нас непре­одолимой стеной времени. Издревле человек стремился пре­одолеть время и заглянуть в свое «завтра». Но можно ли предугадать пути развития человечества?

Страстное желание заглянуть за завесу времени прису­ще уже писателям античности. Например, стремление к микропорядку, в котором все зависело бы от всеведущей власти, древнегреческий философ Платон воплотил в сво­ем труде «Государство». Основной идеей этого сочинения стала идея о создании идеального политического строя.

Платон считал, что существование человека невозможно вне общественно-политической жизни.

Описанное Платоном государство состоит из трех со­словий: правителей, стражей и трудящихся — крестьян, ремесленников, торговцев и т.д. У каждого сословия есть свой круг занятий и представители каждого из сословий должны в совершенстве владеть своим мастерством: правители-философы — управлением, стражи — охраной го­сударства от внешних и внутренних врагов, а крестьяне и ремесленники — производством материальных благ для себя и для первых двух сословий.

Каждому сословию соответствуют свои этические доб­родетели: правителям-философам — мудрость, стражам — мужество, крестьянам и ремесленникам — послушание. Гар­моничное сочетание деятельности сословий и их доброде­телей создает справедливый государственный строй. Госу­дарственному строю и идее справедливости соответствует человеческая душа, состоящая из трех частей: разумной, вожделеющей и растительной. Чтобы искоренить корыс­толюбие и алчность, Платон предлагал ликвидировать част­ную собственность