Дан массив b из 20 случайных чисел от 0 до 100 определить кол-во элементов массива таких что если из числа вычесть дату вашего рождения то оно будет кратно месяцу вашего рождения
Потому что (и) значит, что условие верно толькое если все его подусловия верны; представим (и) в виде умножения, а множители: 0(неверно) и 1(верно), тогда по правилам умножения получится: 1*0=0, 0*1=0, 0*0=0, 1*1=1, т.е если оба множители 1(верны), то и все выражение верно. со сложением также: или - значит выражение верно, если одно из условий выполнятся, берем слагаемые: 0(неверно) и 1(верно), по правилам сложения: 1+0=1, 0+1=1, 0+0=0, 1+1=1, т.е если хотя бы 1 слагаемое верно, то и все выражение верно.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).ToArray; var nn:=ReadInteger('1. Введите число N:'); Write('Максимальный из элементов, не превосходящий N'); if nn<b.Min then Writeln(', не существует') else Writeln(', равен ',b.Where(x->x<=nn).Max); Write('2. Максимальный элемент в массиве ['); var i:=b.IndexMax; Writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n]) end.