===== PascalABC.NET =====
begin
var a := MatrRandom(6, 6, -20, 20);
a.Println(4);
a.ElementsByRow
.GroupBy(p -> p)
.Where(p -> p.Count > 1)
.MaxBy(p-> p.Key)
.Distinct
.Println
end.
А) Для проверки четности удобно использовать операцию определения остатка от деления на 2. Правильный ответ: <span>г) x mod 2=0
б) (x>=-10) and (x<=10)</span>
1 A2 B4 C6 D8
2 =B1/A1 =C1-B1 =D1/A1......КАКАЯ ИЗ ФОРМУЛ ПРИВЕДЁННАЯ И Т.Е 1)C1/A1+1
2)=A1-1
3)C1+B1
4)C1+1
Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>