- Задана прямоугольная матрица N*M. Определить номер минимального элементами.

[DBrooklyn]

Помогите пожалуйста решить 3 задачи

- Вводя в цикле по 5 оценок каждого студента, подсчитать число студентов, имеющих оценки А и В. В группе учится п студентов.

- Задана прямоугольная матрица N*M. Определить номер минимального элементами.

- Заданы матрица и вектор. Получить их произведение. Напечатать в строку.

[evgesh_m]

- Уточните первую задачу, не совсем понятно, откуда брать информацию о студентах. Их количество, например?

- Вторая задача, код ниже. Есть вопросы - пишите, поясню в меру своих знаний.

Program p2;
uses crt;
  
function FillArray(var n, m: integer): array[,] of integer;  
var
   i, j: integer; 
   a: array[,] of integer;
begin 
   randomize;
   SetLength(a, n, m);
   for i := 0 to m-1 do
   begin
      for j := 0 to n-1 do
      begin
         a[i,j] := random(20);
      end;
   end;
   FillArray := a;
end;

procedure ShowArray(var n, m: integer; var arr: array[,] of integer);
var
   i, j: integer;
begin
   writeln('Исходная матрица: ');
   for i := 0 to m-1 do
   begin
      for j := 1 to n-1 do
      begin
         write(arr[i,j]:4);
      end;
      writeln;
   end;
   writeln;
end;

function FindMinElement(var n, m: integer; var arr: array[,] of integer): array of integer;
var
   Min, iMin, jMin, i, j: integer;
   res: array of integer; 
begin
   SetLength(res, 3);
   Min :=arr[0, 0];
   iMin := 1;
   jMin := 1;
   for i := 0 to m-1 do
      for j := 0 to n-1 do
         if arr[i, j] < Min then
         begin
            Min := arr[i,j];
            iMin := i;
            jMin := j;
         end;
   res[0] := Min;
   res[1] := iMin;
   res[2] := jMin;
   FindMinElement := res;
end;

const nmax = 15;
var 
     arr: array[,] of integer;
     res: array of integer;
     m, n: integer;
    
Begin
   repeat
      write('Количество строк до ', nmax,' m = ');
      read(m);
   until m in [1..nmax];
   repeat
      write('Количество столбцов до ', nmax,' n = ');
      read(n);
   until n in [1..nmax];
   
   arr := FillArray(n, m);
   ShowArray(n, m, arr);
   res := FindMinElement(n, m, arr);

   Writeln('Min[', res[1], ', ', res[2], '] = ', res[0]);
End.

- Задача три:

Program p1;
var
  i, j, n: byte;
  A: array[1..20, 1..20] of integer;
  B, C: array[1..20] of integer;
  
Begin
  randomize;
  n := 2 + random(15);
  writeln('Вводим случайную квадратную матрицу порядка ',  n, ':');
  for i := 1 to n do begin
    for j := 1 to n do begin 
      a[i, j] := random(20) - 10;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  writeln('Вводим случайный вектор-столбец порядка ', n, ': ');
  for i := 1 to n do begin
    b[i] := random(20) - 10;
    writeln(b[i]:4);
  end;
  writeln;
  writeln;
  writeln('Произведение АxB:');
  for i := 1 to n do begin
    for j := 1 to n do
      c[i] := a[i, j] * b[j];
      writeln(c[i]:4)
  end
End.

p.s. надеюсь, помог