Двумерные массивы. Написать программу на языке Паскаль АВС.

[Helen1]

В произвольно заданном двумерном массиве размера 4*5 определить три элемента с наибольшими значениями.

[Helen1]

Помогите мне, пожалуйста, написать программу..

[Sciv]

Да уж Вам тут столько примеров привели - сами написать сможете

А серьезно начинайте, мы поможем. Хотя бы объявите константы (m=4,n=5), переменные, сам массив, введите его рандомно (пример для одномерного был в одной из Ваших-же задач не далее как сегодня, нужно только второй цикл добавить).

Начните уже хоть немножко сами что-то делать

[Helen1]

Сообщение от Sciv

Начните уже хоть немножко сами что-то делать

Uses crt;
const n=5; m=4;
 Var a:array [1..m, 1..n] of integer;
  i,j,max1,max2, max3:integer;

  Begin
  clrscr;
  randomize;
  for i := 1 to M do
    for j := 1 to N do
      A[i,j] := Random(100) + 1;
      writeln('Массив: ', a[i,j]);

  Max1  := A[1,1];
  Max2 := A[1,2];
  Max3 := A[1,3];

  for i := 1 to M do
    for j := 1 to N do
    begin
      if (A[i,j] <> Max1) and (A[i,j] <> Max2) and (A[i,j] <> Max3) then
      begin
        if (A[i,j] > Max1) and (Max1 < Max2) and (Max1 < Max3) then
        begin
          Max1 := A[i,j];
          Continue;
        end;
        if (A[i,j] > Max2) and (Max2 < Max1) and (Max2 < Max3) then
        begin
          Max2 := A[i,j];
          Continue;
        end;
        if (A[i,j] > Max3) and (Max3 < Max1) and (Max3 < Max2) then
          Max3 := A[i,j];
      end;
    end;

 Writeln ('max1=',max1);
 Writeln ('max2=',max2);
 Writeln ('max3=',max3);
 end.

Как сделать, чтобы выводился весь исходный массив? А то в моей программе выводится только один элемент массива.

[Sciv]

Всего лишь добавить begin...end:

  for i := 1 to M do
    for j := 1 to N do begin
      A[i,j] := Random(100) + 1;
      writeln('Массив: ', a[i,j]);
    end;

Молодец! Сделала программу

[Helen1]

а как сделать, чтобы выводился массив в 4 строки и 5 столбцов

[Sciv]

так я же выше как раз и написал.

[Helen1]

да, выводится массив, только в строку, а не 4*5

[Mad_Cat]

for i := 1 to M do begin
    for j := 1 to N do begin
      A[i,j] := Random(100) + 1;
      write(a[i,j]:4);
    end;
writeln;
end;

[Helen1]

спасибо огромное)