Ответ:
Скачать PDF
Следить
Править
Джеро́ламо (Джироламо, Иероним) Карда́но (лат. Hieronymus Cardanus, итал. Girolamo Cardano, Gerolamo Cardano; 24 сентября 1501, Павия — 21 сентября 1576, Рим) — итальянский математик, инженер, философ, врач и астролог. В его честь названы открытые Сципионом дель Ферро формулы решения кубического уравнения (Кардано был их первым публикатором), карданов подвес, карданный вал и решётка Кардано.
Джероламо Кардано
итал. Gerolamo Cardano
GirolamoCardano.jpeg
Дата рождения
24 сентября 1501
Место рождения
Павия, Миланское герцогство[1]
Дата смерти
21 сентября 1576 (74 года)
Место смерти
Рим, Папская область[2][3][1]
Страна
итальянцы
Научная сфера
математика, инженерия
Место работы
Болонский университет
Павийский университет
Альма-Падуанский университет
Известные уче
Объяснение:
Это?
A B F
0 0 1
0 1 1
1 0 1
1 1 0
Условие при котором подходят варианты решения
Const
n1 = 20;
m1 = 20;
var
a: array[1..n1, 1..m1] of integer;
b: array[1..m1] of integer;
i, j, m, n: integer;
begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
Writeln('Сформированный массив');
for j := 1 to m do
begin
i := 1;
while (i <= n) and (a[i, j] >= 0) do i := i + 1;
if i <= n then b[j] := a[i, j] else b[j] := -99;
Write(b[j]:4)
end;
Writeln
end.
<u>Тестовое решение:</u>
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
-11 -18 -42 -22 -9 2 21 15 40 -3
4 -5 40 -13 -44 -37 43 47 1 -39
20 50 21 -18 -10 6 12 -10 43 -37
Сформированный массив
-11 -18 -42 -22 -9 -37 -99 -10 -99 -3
