<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3>
procedure FillArr(var a: array of integer; n, k: integer);
begin
a := ReadArrInteger(n);
Println($'{a.Where(t -> t = k).Count} эл. равны k');
end;
begin
var a: array of integer;
var (n, k) := ReadInteger2('n,k->');
FillArr(a, n, k);
end.
<em>VAR</em>
<em> i, kol: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> For i := 1 to 20 do Read(a[i]);</em>
<em />
<em> For i := 1 to 20 do</em>
<em> If (a[i] < -20) then Inc(kol);</em>
<em />
<em> Write(kol);</em>
<em>END.</em>
Ответ:
#include <iostream>
using namespace std;
int main()
{
int а; int b;
cout << "enter the first integer number: ";
cin >> a;
cout << "enter the second integer number: ";
cin >> b;
if(a<b || a=b) a=0;
cout << "a=" << a<< "\n"<<"b="<<b<<"\n";
system("pause");
return 0;
}