Дан двухмерный массив. Найти в нем максимальный элемент, если таковых элементов несколько – вывести их количество

[Паскаленок]

Дан двухмерный массив. Найти в нем максимальный элемент, если таковых элементов несколько – вывести их количество.Формат естественно паскаль.

[Serge_Bliznykov]

помощь какого рода Вы ожидаете?

если я напишу алгоритм на псевдокоде - переложить на Паскаль сумеете?

[Stilet]

Паскаленок

Написать ввод массива сможешь?

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,max,c:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   max:=p[1,1];
   c:=0;
   For i:=1 to 10 do
      For j:=1 to 10 do
      begin
         If max<p[i,j] then
         begin
            max:=p[i,j];
            c:=0;
         end;
         If max=p[i,j] then
            c:=c+1;
      end;
   If c=1 then
      Writeln('max = ',max) else
      Writeln('max = ',max,', count = ',c);
   Readln;
end.

Сойдет?

[JUDAS]

Сообщение от Паскаленок

Формат естественно паскаль.

. Господа коллеги, вы чё, не видите что человек вообще не понял куда попал.

[Stilet]

Да ладно. Формат-Паскаль - новая формация. Означает ПаскальАБЦ. Все нормуль, се ля СовременноеОбразование