Using System;
class Program
{
static void Main()
{
var symbols = new char[] {'A', 'a', '0', '}', 'T'}; //символы из которых может состоять строка
var r = new Random();
var s = "";
for(var i = 0; i < r.Next(255); i++) {
s += symbols[r.Next(symbols.Length - 1)].ToString();
}
Console.WriteLine(s);
Console.ReadKey();
}
}
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-10,10);
for var i:=0 to n-2 do Write('A[',i+1,']=',a[i],', ');
Writeln('A[',n,']=',a[n-1]);
Writeln('Четных элементов- ',a.Where(t->t.IsEven).Count);
a.Transform(t->t<0?1:0); a.Println;
end.
<u>Пример</u>
n= 13
A[1]=-10, A[2]=-2, A[3]=-8, A[4]=6, A[5]=-1, A[6]=3, A[7]=-10, A[8]=-3, A[9]=-6, A[10]=5, A[11]=7, A[12]=-3, A[13]=5
Четных элементов- 6
1 1 1 0 1 0 1 1 1 0 0 1 0
#include <iostream>
<span>#include <fstream>
</span><span>#include <cstring>
</span><span>using namespace std;
</span>int main() <span>{
</span><span> ifstream fi;
</span><span> ofstream fo;
</span><span> fi.open("input.txt");
</span><span> string sd,sw,inp = "";
</span><span> int i,j;
</span><span> while(!fi.eof())
</span><span> {
</span><span> fi>>i>>j;
</span><span> if (((i%2==0) && (j%2==0)) || ((i%2==1) && (j%2==1)))
</span><span> sd=sd+char(i+48)+" "+char(j+48)+" ";
</span><span> else sw=sw+char(i+48)+" "+char(j+48)+" ";
</span><span> }
</span><span> fi.close();
</span><span> fo.open("output.txt");
</span><span> fo<<sw<<endl;
</span><span> fo<<sd<<endl;
</span><span> fo.close();
</span><span> return 0;
</span><span>}
</span><span>
</span>
N,i:integer;
begin
readln(n);
for i:=n downto 1 do
writeln(i);
end.
