Txt - Notepad++
doc - Microsoft Word
bmp - FastStone Image Viewer
pdf - Acrobat Reader
zip - 7z, WinZip
Магнитные лазерные электронные
дискеты CD флеш карта
магнитный жесткий твердотельный жесткий
диск DVD диск
Blu-Ray
Годовая ставkа-0,07
выплата 41000
общая сумма 370000
kол-во лет выплат 6,1
750 б = 0,0009765625
13 гб = 13631488 кб
program massiv;
var
a: array[1..12] of
integer;
i,k,n: byte;
begin
for i:=1 to 12 do
begin
<span> a[i]:=random(11)-7;</span>
<span> write(a[i]);</span>
<span> write(' ');</span>
<span> end;</span>
k:=0;
for i:=1 to 12 do
<span> if a[i]<0 then begin</span>
<span> k:=k+1;</span>
<span> end;</span>
writeln(' <0 ',k, '
chisel');
<span>end.</span>