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

Question

Информатика

Фатьян

29 марта, 23:21

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

+4

Ответы (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.