Question

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

Answer 1

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.

Answer 2

А где первая задача?