Меню сайта

Задача №37
Дан массив из —nxmэлементов. Найти индексы первого наименьшего — элемента массива.
Program -dmas_13-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
min,i,j,k,l:integer-
Begin
randomize-
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10)- —
write(a[I,j]:4)-
end-
writeln-
end-
min:=a[1,1]-
k:=1-l:=1-
For i:=1 to n do
For j:=1 to m do
If min&gt- a[i,j] then —
begin —
min:=a[i,j]-
k:=I- —
l:=j- —
end-
Writeln(‘­ Индексы первого наименьшего элемента = -‘,k,’,’,l)-
Readln-
End.
Категория: Массивы | Дата: 15.12.12

Меню раздела
Блок