Question

Помогите, срочнооо. Завтра нужно сдать задания, а у меня никак не получается ;(
1) Дан двумерный массив целых чисел.
Сформировать одномерный массив, каждый элемент которого равен последнему нечетному элементу соответствующей строки двумерного массива (если такого элемента в строке нет, то он равен нулю).
2) В двумерном массиве хранится информация об оценках каждого из 20 учеников класса по тому или иному предмету (в первой строке - информация об оценках первого ученика, во второй - второго). Общее число предметов равно 10. Определить среднюю оценку пятого ученика.

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.Select(r->r.Where(t->t.IsOdd).LastOrDefault); b.Println;
end.

Пример
Количество строк и столбцов в массиве: 8 5
*** Исходный массив [8,5] ***
 -41  36 -99  14  17
 -22  12  71 -94 -42
 -35 -40  26   2  24
  39  17  20  11  84
 -53 -18  97  -6   5
   2  67 -54  -6  -3
  95 -87  90 -13 -37
 -81 -21  61 -90 -60
--------------------
17 71 -35 11 5 -3 -37 61

2)

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(20,10,2,5);
  a.Println(2); Writeln(2*a.ColCount*'-');
  Writeln('Ср.балл 5-го ученика: ',a.Row(4).Average)
end.

Пример
*** Исходный массив ***
 2 2 3 3 4 3 4 2 3 2
 4 3 2 3 2 4 3 2 5 3
 4 2 3 3 4 5 5 2 2 4
 5 2 4 2 4 5 4 2 3 3
 5 3 3 2 3 4 5 4 4 4
 3 2 3 2 3 2 5 2 4 4
 4 4 5 5 2 4 5 5 4 2
 2 2 5 4 4 2 4 3 2 2
 2 2 4 4 2 4 4 4 5 4
 2 3 4 4 5 3 3 4 5 4
 5 2 5 3 3 2 3 5 3 2
 3 4 2 3 4 3 2 3 4 3
 2 2 2 2 2 4 4 2 4 2
 5 2 3 3 3 5 3 2 2 5
 2 4 2 4 3 3 3 2 5 4
 3 2 5 4 4 4 5 5 3 5
 4 3 2 3 3 2 2 4 2 4
 2 5 2 5 2 3 2 4 5 4
 3 3 2 2 5 4 3 5 4 4
 2 3 5 3 3 5 4 5 2 2
--------------------
Ср.балл 5-го ученика: 3.7

Answer 2

Pascal
-----------------------------------

2)
var
  A: array [1..10, 1..20] of integer;
  i, j: byte;
  Srednee: real;
begin
randomize;
  writeln('Сгенерированный массив.'); 
    for i := 1 to 10 do
    begin
      for j := 1 to 20 do
      begin
        A[i, j] := random(5)+1;
        write(A[i, j]:4);
      end;
    writeln;   
    end;
    writeln('------------------------------------------------------------------------------------');
    for j := 1 to 20 do
    begin
    Srednee := 0;
      for i := 1 to 10 do
        Srednee := Srednee + A[i, j];
    write((Round(Srednee/10)):4);
    end;
end.