Блок схема для программы

[Bloodnes]

Составить блок-схему и программу на языке Pascal
Пусть дана матрица А размером ( n x m), состоящая из вещественных чисел. Определить максимальный и минимальный элемент
Помогите пожалуйста

[Pein95]

а наработки есть?

[Pein95]

вот тебе кусок кода:

for i:=1 to n do
for j:=1 to x do
for k:=1 to m do
if max<a[i,j,k] then
max:=a[i,j,k];

[unbanned]

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

вот тебе кусок кода:

for i:=1 to n do
for j:=1 to x do
for k:=1 to m do
if max<a[i,j,k] then
max:=a[i,j,k];

что-то ты переусердствовал ... скорее всего здесь двумерный массив M х N

[Bloodnes]

Да нароботки будут только вечером (

[Bloodnes]

program lab_1;
uses crt;
var
arr : Array[1..100] of Array [1..100] of real;
m,n,i,j:integer;
min,max:real;
begin
clrscr;
Вот для этого нужно составить блок схэму
Writeln('vvedite razmer M x N (ne bolee 100) ');
read(m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
Begin
Write('vvedite element M =',i+1,' N =',j+1,' = ');
Readln(arr[i][j]);
end;
min:=arr[1,1];
max:=arr[1,1];
for i:=0 to m-1 do
for j:=0 to n-1 do
begin
if arr[i][j]>max then max:=arr[i][j];
if arr[i][j]<min then min:=arr[i][j];
end;
Writeln('Minimalnii element = ',min:5:2);
Writeln('Maximalnii element = ',max:5:2);
readln;
end.
Вот для этого

[Bloodnes]

Кто нибудь пожалуйста помогите ) !