Помогите написать программу на паскале. Дан двумерный массив размером 5 * 5 элементы массива вводятся пользователем вручную. Составьте программу определения индексов минимального элемента этого массива. Полученный результат вывести на экран.

Question

Информатика

Олюся

26 января, 20:45

Помогите написать программу на паскале. Дан двумерный массив размером 5 * 5 элементы массива вводятся пользователем вручную. Составьте программу определения индексов минимального элемента этого массива. Полученный результат вывести на экран.

+1

Ответы (1)

Знаете ответ на вопрос?

Ританя · Answer 1

Const

n=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]
begin

im:=i;

jm:=j;

end;

writeln ('Минимум = ', a[im, jm]) ;

writeln ('Строка: ', im,' столбец: ', jm) ;

readln;

end.