Помогите написать программу на паскале.
Дан двумерный массив размером 5 * 5 элементы массива вводятся пользователем вручную. Составьте программу определения индексов минимального элемента этого массива. Полученный результат вывести на экран.
Дан двумерный массив размером 5 * 5 элементы массива вводятся пользователем вручную. Составьте программу определения индексов минимального элемента этого массива. Полученный результат вывести на экран.
More Questions From This User See All
Answers & Comments
Verified answer
Constn=5;
var
a: array[1..n,1..n] of integer;
i,j,im,jm: integer;
begin
writeln('Массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
end;
end;
writeln;
im:=1; jm:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<a[im,jm] then
begin
im:=i;
jm:=j;
end;
writeln('Минимум = ',a[im,jm]);
writeln('Строка: ',im,' столбец: ',jm);
readln;
end.