// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.
===== 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.
Program abc;var a, b, i: integer;<span> s: string;</span>begin<span> a := 0;</span><span> b := 0;</span><span> read(s);</span><span> for i := 1 to length(s) do</span><span> begin</span><span> if s[i] = '(' then inc(a)</span><span> else if s[i] = ')' then inc(b);</span><span> end;</span><span> if a = b then writeln('Одинаковое.')</span><span> else writeln('Разное.');</span><span>end.</span>