Двумерные массивы. Паскаль

[Antonio_getscool]

Написать программу нахождения наиб и наим элементов массива А [1..N]

[Veselyn]

type m=array[1..100] of integer;
var
 a:m;
n, min, max: integer;
Нач.
ввод н
заполнение мас.
i:=1;
max:=a[1];
min:=a[1];
for i to n do 
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
вывод min, max.
Кон.

[Базиля]

Как я понял из названия темы, нужно написать для матрицы, хотя в условии написано для одномерного массива.
Т.к. для одномерного выложили, держи на всякий случай для матрицы:

program zad1;
type mas=array[1..20,1..20] of integer;
var a:mas;
n,k,max,min,i,j:integer;
begin
writeln('введите кол-во строк и столбцов');
readln(n,k);
for i:=1 to n do
for j:=1 to k do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
min:=a[i,1];
max:=a[i,1];
for i:=1 to n do
for j:=1 to k do
begin
if min>a[i,j] then
min:=a[i,j];
if max<a[i,j] then
max:=a[i,j];
end;
writeln('минимальный элемент матрицы =',min);
writeln('максимальный элемент матрицы =',max);
end.

[Serebro]

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

var 
a:array[1..n] of integer;
min, max: integer;
Нач.
ввод н
заполнение мас.
i:=1;
for i to n do 
if a[i]>a[i+1] then
max:=a[i];
if a[i]<[i+1] then
min:=a[i];
вывод min, max.
Кон.

В программе ошибка: в массиве a[i] только n элементов. Кроме того, не сказано, что массив целочисленный.

[Serebro]

Сообщение от Базиля

Как я понял из названия темы, нужно написать для матрицы, хотя в условии написано для одномерного массива.
Т.к. для одномерного выложили, держи на всякий случай для матрицы:

program zad1;
type mas=array[1..20,1..20] of integer;
var a:mas;
n,k,max,min,i,j:integer;
begin
writeln('введите кол-во строк и столбцов');
readln(n,k);
for i:=1 to n do
for j:=1 to k do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
min:=a[i,1];
max:=a[i,1];
for i:=1 to n do
for j:=1 to k do
begin
if min>a[i,j] then
min:=a[i,j];
if max<a[i,j] then
max:=a[i,j];
end;
writeln('минимальный элемент матрицы =',min);
writeln('максимальный элемент матрицы =',max);
end.

Здесь нужно заменить

min:=a[i,1];
max:=a[i,1];

на

min:=a[1,1];
max:=a[1,1];

[Veselyn]

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

в массиве a[i] только n элементов.

А сколько по твоему нужно?

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

не сказано, что массив целочисленный.

Да, но не сказано что он не целочисленный.

[Serebro]

Смотри здесь:

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

for i to n do 
if a[i]>a[i+1] then
...
if a[i]<[i+1] then
...
Кон.

цикл по i от 1 до n, а в теле цикла есть a[i+1] (a[n+1] при i=n)

[Alex Cones]

Смотри здесь:

http://www.programmersforum.ru/showthread.php?t=70310

[IT-man]

2Veselyn
Кстати паскаль вот это

a:array[1..n] of integer;

+

ввод н

не съест
нужно

const n=чему то
var a:array[1..n] of integer;

или

var a:array[1..100] of integer;

[Veselyn]

ok, согласен. Всем спасибо.
P.S. Я знаю что такое матрица