Блок-схема к задаче является ли число 17 простым
Отдельные слова перенести указатель мыши на нужную 42 выглядит двойной щелчок левой кнопкой мыши строка текста с 1 по 200 указателя мыши в левой границы строки так чтобы он принял вид наклоненный стрелки 2 выполнить шевчук левой кнопкой мыши абзац 1 по 200 указатели мыши в левый бок границы текста так чтобы он принял вид наклонены стрелки второе выписать ст.30 выполнить тройное щелчок левой кнопкой мыши весь текст весь текст 1 по 200 указатели мыши клевый границы абзаца так чтобы он принял вид наклоненный сделки выполнил удалился значок левой кнопкой мыши произвольный участок текста 1 установить указатели мыши над первым символам выделяемого фрагмента 2 нажать левую кнопку мыши отпускать ее переместить мышь в конце выделяемые фрагменты
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,1);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln(a.Rows.Any(x->x.All(x->x=0))?'Да':'Нет')
end.
<u>Примеры</u>
Количество строк в массиве: 10
Количество столбцов в массиве: 4
*** Исходный массив [10,4] ***
0 1 1 1
1 0 0 1
1 0 0 1
1 0 1 1
1 1 0 1
1 0 1 1
1 0 1 0
0 0 0 0
1 1 1 1
1 0 0 1
----------------
Да
Количество строк в массиве: 8
Количество столбцов в массиве: 5
*** Исходный массив [8,5] ***
1 1 0 0 1
1 1 0 1 0
1 0 0 0 0
0 0 0 1 1
1 0 1 1 1
1 0 0 1 1
1 1 0 1 1
0 1 1 1 0
--------------------
Нет
На входе два числа а и б
далее проверяем
если а меньше б
то минимум равен а
иначе минимум равен б
в конце выводим минимум
и завершаем программу