Дан двумерный массив, содержащий 2 строки и 4 столбца. Элементами массива являются целые числа. Найти наименьший элемент массива и место его расположения.
writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])
end.
Объяснение:
Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.
Если наименьших индексов больше одного, то на экран будет выведено расположение первого.
program z1;
var a:array[1..2,1..4] of integer;
i,j,mi,mj:integer;
begin
mi:=1;
mj:=1;
writeln('Массив: ');
for i:= 1 to 2 do
begin
for j:= 1 to 4 do
begin
a[i,j]:=random (10);
write(a[i,j]:3);
if a[i,j]<a[mi,mj] then
begin
mi:=i;
mj:=j
end
end;
writeln;
end;
writeln;
writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])
end.
Объяснение:
Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.
Если наименьших индексов больше одного, то на экран будет выведено расположение первого.