#include <iostream>
using namespace std;
int main() {
int n, m;
cin >> n >> m;
int a[100][100];
// чтение
for (int i = 0; i < n; i++) {
for (int j = 0; j < m; j++) {
cin >> a[i][j];
}
}
int max = a[0][0], max_i = 0, max_j = 0;
for (int i = 0; i < n; i++) {
for (int j = 0; j < m; j++) {
if (a[i][j] > max) {
max = a[i][j];
max_i = i;
max_j = j;
}
}
}
cout << max_i << " " << max_j;
return 0;
}
Объяснение:
1)
var g1,g2:integer;
begin
writeln('Введите годы рождения двух детей');
readln(g1,g2);
if g1<g2 then
writeln('Старший ребенок родился в ',g1,'году')
else
writeln('Старший ребенок родился в ',g2,'году');
end.
2)
var r,v,ves:real;
begin
write('Введите рост ');
readln(r);
writeln('Введите вес ');
readln(ves);
v:=r-115;
if (r>=168) and (r<=173) then
if v=ves then
writeln('Поступающий будет принят в школу')
else
writeln('Поступающий не будет принят')
else
writeln('Поступающий не будет принят');
end.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.