Криптография от греческого наука о методах обеспечения конфиденциальности
Это если не ошибаюсь 1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21=51090942171709440000
2^12 бит = 4096 бит. в одном байте - 8 бит. 4096 бит = 512 байт. в 1 Кбайте - 1024 байта => 2^12 бит = 1/2 Кбайт
<-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_->
16Гбайт = 16*1024Мбайт=16*1024*1024Кбайт=16*1024*1024*1024байт
<-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_-><-_->
128 Мбайт = 128/1024 Гбайт
<span>Массив одномерный из 10 элементов.</span>
var a : Array [1..10] Of Real;
<span> I:integer;
</span>Begin
<span>For i:=1 to 10 do read (a[i]); {ввод элементов массива}
</span><span>For i:=1 to 10 do {открыт цикл}
</span><span><span> If</span> a[i] < 0 then a[i]:=0; {сравнение элемента массива с нулем и если да то замена}
</span><span>For i:= 1 to 10 do write(a[i]); {вывод элементов массива}
</span><span>End.</span>