12. даны матрицы а(5, 6) и в(5, 6 из максимальных элементов столбцов матрицы а сформировать вектор с. из минимальных элементов столбцов матрицы в сформировать вектор d. если количество четных элементов в векторе с больше количества четных элементов в векторе d, то добавить вектор с в матрицу а 6-ой строкой, иначе объединить два вектора с и d в один м(12). pascal abc

Var
  A, B: array [1 .. 6, 1 .. 6] of byte;
  C, D: array [1 .. 6] of byte;
  M: array [1 .. 12] of byte;
  i, j, MIN, MAX, evenCountC, evenCountD: byte;

begin
  randomize;
  for j := 1 to 6 do
  begin
    MAX := 0; MIN := 100;
    evenCountC := 0; evenCountD := 0;
    for i := 1 to 5 do
    begin
      A[i, j] := random(20);
      B[i, j] := random(20);
      if A[i, j] > MAX then MAX := A[i, j];
      if B[i, j] < MIN then MIN := B[i, j];
    end;
    C[j] := MAX;
    D[j] := MIN;
  end;
  writeln('      ***Матрица A***');
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do write(A[i, j]:4);
    writeln;
  end;
  writeln;
  writeln('      ***Матрица B***');
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do write(B[i, j]:4);
    writeln;
  end;
  writeln;
  writeln('***Вектор C***');
  for i := 1 to 6 do
  begin
    writeln(C[i]:7);
    if C[i] mod 2 = 0 then evenCountC := evenCountC + 1;
  end;
  writeln('Количество четных элементов в векторе C = ', evenCountC);
  writeln;
  writeln('***Вектор D***');
  for i := 1 to 6 do
  begin
    writeln(D[i]:7);
    if D[i] mod 2 = 0 then evenCountD := evenCountD + 1;
  end;
  writeln('Количество четных элементов в векторе D = ', evenCountD);
  if evenCountC > evenCountD then
  begin
    writeln('Добавляем вектор C к матрице A.');
    for i := 1 to 6 do A[6, i] := C[i];
    writeln('  ***Измененная матрица A***');
    for i := 1 to 6 do
    begin
      for j := 1 to 6 do write(A[i, j]:4);
      writeln;
    end;
  end
  else
  begin
    writeln('Объединяем два вектора C и D.');
    writeln('Новый вектор M');
    for i := 1 to 6 do M[i] := C[i];
    for i := 7 to 12 do M[i] := D[i - 6];
    for i := 1 to 12 do writeln(M[i]:7);
  end;
  readln;
end.

var

  k, i, n: integer;  //k - данное число, n - количество делителей числа k

  s: real;  //s - сумма делителей числа k

 

begin

  n:= 0;  //Обнуляем счетчики

  s:= 0;

  writeln('Введите целое число');

  readln(k);  //Вводим число k

  for i:= 1 to k do  {Проверяем какие числа от 1 до k являются делителями числа k}

    if k mod i = 0 then   {Если k делится без остатка на i, то прибавляем число i к сумме и прибавляем к счетчику 1}

    begin

      n:= n + 1;

      s:= s + i;

    end;

  writeln('Среднее арифметическое делителей числа ', k, ' равно: ', s / n : 0 : 5);  {Выводим среднее арифметическое делителей с округлением до 5 знаков после запятой}

end.

В Древнем Египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . Потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен).
В этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. На первых порах значение фонетических иероглифов было вс но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. Но к чисто фонографическому письму египтяне так и не перешли .