Петрик пройшов x год зі швидкістю 5 км/год, а Катерина – у год зі швидкістю 4 км/год. Складіть математичну модель і проєкт для визначення, хто з них про-
йшов більшу відстань, коли відомо, що ці відстані різні. Збережіть складений
проєкт у вашій папці у файлі з іменем завдання
m = 4; n = 3;
var
a: array[1..m, 1..n] of integer;
i, j, mi, mj, max: integer;
begin
Randomize;
for i := 1 to m do
for j := 1 to n do
a[i, j] := random(100) - 50; // случайные числа в интервале [-50..50]
max := -100; //меньше минимального из возможных
for i := 1 to m do
for j := 1 to n do
if max < abs(a[i, j]) then begin
max := abs(a[i, j]); mi := i; mj := j
end;
writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
write(a[i, j]:4);
writeln
end;
writeln('Максимальный по модулю элемент:a(', mi, ',', mj, ')=', max:3)
end.
Контрольный пример:
Исходный массив
10 30 30
24 -11 28
-43 -50 -13
-8 21 5
Максимальный по модулю элемент:a(3,2)= 50