Составьте программу ,определяющую максимальный элемент и его индексы матрицы А размером M x N
10-11 класс
|
var a:array[1..10,1..10]of integer;
неудобно
var a:array[1..10,1..10]of integer;
max,i1,j1,i,j,k,m,n:integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
max:=a[1,1];
i1:=1;
j1:=1;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]>max then begin max:=a[i,j]; i1:=i; j1:=j; end;
end;
end;
writeln(max,' ',i1,' ',j1);
end.
Другие вопросы из категории
y=sqrt(1/2x-1)+2 c шагом 0,1. значения аргумента беруться из [0;3,8]. предстоит продумать вопрос вывода результата... найти значение x, при котором функция не определена..
1) глобальная вычислительная сеть
2) микрокомпьютерная сеть
3) модемная сеть
4) геоинформационная сеть
5) локальная вычислительная сеть
1.имя переменной
2.значение переменной
3.тип переменной
4.значение константы
Читайте также
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию