Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

дан двумерный массив,найти максимальное и минимальное значение .Я новенький в этом деле,вот попытался сам,посмотрите и обьясните что не правильно ,пожалуйста .

program zaza;
var
i,j,n,m,max,min:integer;
a:array[1..10,1..10] of integer;
begin
writeln (vvedite chislo n);
writeln (vvedite chislo m);
for i:=1 to n do
for j:=1 to m do
begin
writeln (vvedite elementu massiva,i,j);
end;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j] > max then
max:= a[i,j];
if a[i,j] < min then
min:=a[i,j];
end;
writeln(max,min)
end.

Ответ оставил Гость

uses crt; {вывод результата в отдельном окне}
var i,j,n,m,max,min:integer;  {ввод переменных}
a:array[1..10,1..10] of integer;  {ввод массива} 
begin
clrscr;  {очистка экрана вывода} 
writeln (vvedite chislo n);  {выводим на экран сообщение}
read(n);  {вводим число} 
writeln (vvedite chislo m);  {выводим на экран сообщение} 
read(m);  {вводим число} 
writeln (vvedite elementu massiva);  {выводим на экран сообщение} 
for i:=1 to n do
for j:=1 to m do
begin  {откроем операторные скобки, чтобы каждый раз не задавать границы массива} 
readln(a[i,j]);  {вводим массив} 
max:=a[1,1];  {задаем значения для минимума и максимума для сравнения с другими элементами} 
min:=a[1,1];
if a[i,j] > max then
max:= a[i,j];
if a[i,j] < min then
min:=a[i,j];
end;  {закроем операторные скобки} 
writeln(max=,max,min=,min);  {вывод на экран сообщения} 
end.