<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var s:=a.Where(t->t.IsEven); s.Println; Writeln('Кол-во = ',s.Count);
s:=a.Where(t->t.IsOdd).Reverse; s.Println; Writeln('Кол-во = ',s.Count);
var imax:=a.IndexMax;
Writeln('Номер максимального элемента- ',imax+1,
', его значение- ',a[imax])
end.
<u>Пример</u>
n= 15
-39 29 23 4 -26 41 23 -9 10 49 -24 39 -28 19 15
4 -26 10 -24 -28
Кол-во = 5
15 19 39 49 -9 23 41 23 29 -39
Кол-во = 10
Номер максимального элемента- 10, его значение- 49
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
uses System.Linq;
function GetPrimes(n: integer): List<integer>;
begin
var primes := new List<integer>();
primes.Add(2);
for var i := 3 to n do
begin
if primes.All(x -> i mod x > 0 ) then
primes.Add(i);
end;
GetPrimes := primes;
end;
begin
var n := ReadInteger('n =');
var primes := GetPrimes(2 * n);
foreach var p in primes do
if primes.Contains(p + 2) then
writeln(p, ' ', p + 2);
end.
Самая мелкая единица измерения информации-бит
У пера нет толщины - не положено ему, цвет выбирают в палитрах Color или Swatch
<span>Когда пером сделали контур - клик правой кнопкой мыши и выбрать -- Выполнить обводку контура. Вам предложат выбрать кисть или карандаш - и толщина будет такой какая толщина кисти или карандаша задана заранее.</span>
#include <iostream>
using namespace std;
int main ()
{
long long m,l,a[100000],n = 0;
cin >> m >> l;
while (cin >> a[n])
n++;
for (int i = 0; i < n; i++)
{
if (a[i] % m == l)
cout << a[i] << " ";
}
return 0;
}
Вот код...