<em>// PascalABC.NET 3.2, сборка 1482 от 12.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
var a:=new real[n,m]; // создали матрицу
var s:=SeqRandom(m,1000,9999).Select(x->x/100); // шаблон случайной строки
for var i:=0 to n-1 do a.SetRow(i,s.ToArray); // заполнили матрицу
Writeln('*** Исходная матрица [',n,',',m,'] ***');
a.Println(6,2); Writeln(6*a.ColCount*'-');
// собственно, поиск нужного элемента
var r:=a.Rows.Select((x,i)->(x.Select((y,j)->(y,j))
.MinBy(y->y[0]),i)).MaxBy(x->x[0][0]);
Writeln('Искомый элемент A[',r[1]+1,',',r[0][1]+1,']=',r[0][0])
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
95.22 17.16 14.35 66.27 20.10 91.88 67.96
20.80 32.71 45.44 35.80 20.17 58.59 24.22
93.03 93.99 18.30 75.80 65.47 97.14 56.24
16.95 73.12 48.54 75.72 91.90 67.95 95.71
------------------------------------------
Искомый элемент A[2,5]=20.17
Конечно опасней биологический вирус, он может заразить разными балячками людей и животных. А компьютерный вирус может лишь сломать компьютер, и то не всегда например если стоит антивирусник.
Ответ:
Вот. Вообще всё было неправильно, кроме 1 строчки. Нельзя в условиях просто писать две переменные.
Объяснение:
m1,m2,m3= map(int,input("Введите массы трёх толстяков, разделённые пробелами. ").split())
if 94 > m1 or 94 > m2 or 94 > m3 or 727 < m1 or 727 < m2 or 727 <m3 :
print("Error")
elif m1 > m2 and m1 > m3:
print("m1 = ", m1)
elif m2 > m1 and m2 > m3:
print("m2 = ", m2)
elif m3 > m1 and m3 > m2:
print("m3 = ", m3)
else:
print("m2==m3==m1 = ", m1)