дана квадратная матрица, заполненная случайными числами
5-9 класс
|
указать индексы всех элементов, имеющих наибольшее
значение.
program gt;
var a:array[1..100,1..100]of integer;
n,i,max,,j:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100)-50;
max:=a[1,1];
for i:=1 to n do
begin
for j:=1 to n do
begin
if(a[i,j]>max)then max:=a[i,j];
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
if(a[i,j]=max)then writeln(i, ' ',j);
end;
end;
end.
Другие вопросы из категории
86,5 мб - кб - бит
6253 кб -бит - мб
20008 бит - кб - мб
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
2. Дана фраза. Определить, сколько в ней предложений.