Top.Mail.Ru
Ответы
Аватар пользователя
8лет
Изменено
Аватар пользователя
Аватар пользователя
Программирование
+1

Как в паскале вывести на экран номер строки в массиве?

Мне нужно вывести номер строки, содержащей минимальный элемент массива
Как это сделать?

По дате
По рейтингу
Аватар пользователя
Новичок
8лет

var i, j, n, min, c: integer;
a: array [1..100,1..100] of integer;
begin
write ('n = ');
read (n);
c:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10+random (90);
write (a[i,j]:4);
if (i = 1) and (j = 1) then min:= a[1,1];
if a[i,j] < min then
begin
c:=i;
min:=a[i,j];
end;
end;
writeln;
end;
writeln (c);
end.

Аватар пользователя
Оракул
8лет

циклом перебирай все строки массива, при нахождении нужной строки выводи ее индекс (индексом послужит шаг цикла)

пример

for I := 0 to 10(количество элементов массива) do
begin
выполняем код
end;

после выполнения кода смотрим какой индекс содержал наименьшее значение, то и выводим - принцип работы объяснил, а вот код пиши сам