Составить одномерный массив из средних значений элементов нечетных столбцов исходного массива - Pascal ABC - Ответ 13075056

const
  M = 5; {столбцы}
  N = 3; {строки}
var
  A : array [1..N, 1..M] of real;
  B : array [1..M] of real;
  i, j, k, index, size : integer;
  s : real;
  
begin
  {вводим с клавиатуры массив}
  for i := 1 to N do
    for j := 1 to M do
    begin
      write('введи A[', i, ',', j, ']: ');
      readln(A[i,j])
    end;
  {выводим матрицу}
  writeln('матрица A:');
  for i := 1 to N do
  begin
    for j := 1 to M do write(A[i,j]:6:2);
    writeln
  end;
  index := 1; {счетчик массива B}
  {обходим столбцы и формируем массив B}
  for j := 1 to M do
  begin
    s := 0; {сумму обнуляем для каждого столбца}
    k := 0; {кол-во обнуляем тоже}
    if odd(j) then {если столбец нечетный}
    begin
      for i := 1 to N do {проходим строки}
      begin
        s := s + A[i,j]; {считаем сумму}
        inc(k) {считаем количество}
      end;
      B[index] := s / k; {заносим в массив}
      inc(index); {переводим счетчик}
      size := index - 1; {обновляем размер массива для вывода}
    end
  end;
  {вывод массива B}
  writeln('массив B:');
  for index := 1 to size do write(B[index]:6:2);
  readln
end.