Составить программу: сформировать в памяти массив из 15 целых чисел.изменить массив так, чтобы числа под чётными номерами были удвоены, а на нечётных-заменены нулями.

Var   a: array [1..25] of integer; begin   for i: integer : = 1 to 25 do   begin     a[i] : = random(255);     writeln(i, ' => ', a[i]);   end;   writeln('');   for i: integer : = 1 to 25 do   begin    if (i mod 2 = 0) then       a[i] : = a[i] * 2     else       a[i] : = 0;     writeln(i, ' => ', a[i]);   end; end.

Вот все ключи.(ответ урезал т.к. не помещалось).

7|Professional|Acer|YKHFT-KW986-GK4PY-FDWYH-7TP9F

7|Professional|Alienware|4CFBX-7HQ6R-3JYWF-72GXP-4MV6W

#7|Professional|Alienware|MPC38-VC8FK-TWPXH-TR3XV-T2Y4K

7|Professional|Aquarius|87MQK-W9Y79-J7M7B-92RTM-MXFJG

7|Professional|Asus|2WCJK-R8B4Y-CWRF2-TRJKB-PV9HW

7|Professional|BGH e-Nova|4872B-B4R7J-QWCFR-YH962-RGDRW

7|Professional|ByteSpeed|32327-2GRQK-M6H8D-2XV93-YYCCF

7|Professional|CCE|D8VYT-828P6-7V77D-P8VV7-CHC4M

7|Professional|DakTech|BDX3F-M3WPY-FTKYK-QBVD7-9DXH8

7|Professional|Dealin|6BJ27-DVBFF-VKQC8-7JPQP-TJKYY

7|Professional|Dell|32KD2-K9CTF-M3DJT-4J3WC-733WD

7|Professional|Fujitsu|PT9YK-BC2J9-WWYF9-R9DCR-QB9CK

7|Professional|Genuine|26QH2-B4V28-CWVMD-38GXQ-WHFYH

7|Professional|HCL|2QTV2-3CMPP-FQBYK-GRD62-D7XMW

7|Professional|HP|74T2M-DKDBC-788W3-H689G-6P6GT

7|Professional|INSYS|BPM2T-G28MM-DYPRD-CDFQB-JG89V

7|Professional|Itautec|2666Q-HGXKH-DFP6M-7YGBB-BG7Q7

7|Professional|Kraftway|32HPJ-4XRDR-424C8-DYQM9-GM768

7|Professional|Lenovo|237XB-GDJ7B-MV8MH-98QJM-24367

7|Professional|MA Technology|CR3MG-TDDHT-T44X2-K722W-J936F

7|Professional|Mecer|2WGY7-J3JQT-78CF9-J6DHQ-DJTQW

7|Professional|MiTAC|2XGJT-GV4QG-QBHPB-D6DBW-DTW9Q

7|Professional|MSI|2W3CX-YD4YJ-DF9B2-V27M6-77GMF

7|Professional|Paragon|32M8T-4R8Y9-X7J66-R9W3H-YDT6F

7|Professional|Positivo|4CMG7-XWKFW-FJQVW-6XBCB-DD9CV

7|Professional|PowerSpec|6FWJ7-TDRCV-BYTP3-JWB98-9J64J

7|Professional|Quanmax|84TBR-V3TCM-DC73Q-TDRQ7-WHPJ4

7|Professional|Samsung|GMJQF-JC7VC-76HMH-M4RKY-V4HX6

7|Professional|SCC|GP2T3-GKR6W-7PGV2-C97HT-TYBVP

7|Professional|Seneca|862R9-99CD6-DD6WM-GHDG2-Y8M37

7|Professional|Shuttle|7K3CD-PXHTK-GDBRW-KH842-F9P3D

7|Professional|Sony|H9M26-6BXJP-XXFCY-7BR4V-24X8J

7|Professional|STEG|7RQGM-4BJBD-GM2YY-R2KTT-43HG8

7|Professional|Stone|4FXT2-THHQK-B7293-VYHKX-3DRPD

7|Professional|Tangent|CVKKG-87DDK-HK8G2-BYQ72-43KFW

7|Professional|Tarox|72X79-RQPFF-YGK82-7FF8M-PX4XB

7|Professional|Toshiba|2V8P2-QKJWM-4THM3-74PDB-4P2KH

7|Professional|Twinhead|4HRQP-KTBTJ-4R9CX-4DWJ6-QFPFT

7|Professional|WIPRO|84KJC-W886T-XQ496-YTB7W-46DTY

7|Professional|Wortmann|6JKVQ-WJTWW-JVPRB-77TGD-2DV7M

7|Professional|Xplore|H8KMB-DPB9M-P3RYK-7JCGW-X97C3

7|Professional|Zoostorm|6V27R-JRHC9-9W42J-37TFX-9T8Q7

7|ProfessionalE|HP|P42PH-HYD6B-Y3DHY-B79JH-CT8YK

#7|ProfessionalN|Demo|----

7|HomePremium|Acer|VQB3X-Q3KP8-WJ2H8-R6B6D-7QJB7

7|HomePremium|Advent|38JTJ-VBPFW-XFQDR-PJ794-8447M

7|HomePremium|Alienware|V3Y2W-CMF9W-PGT9C-777KD-32W74

7|HomePremium|Aquarius|P4QBJ-CHBR8-8BK3H-TQXG4-CDPHM

7|HomePremium|Asus|2QDBX-9T8HR-2QWT6-HCQXJ-9YQTR

#7|HomePremium|Asus Eee|7JQWQ-K6KWQ-BJD6C-K3YVH-DVQJG

7|HomePremium|BenQ|7YGK7-YFP3F-6H86R-BWCBV-FBMHW

7|HomePremium|ByteSpeed|PW872-CKFH7-JVK3G-68XXT-X2BDV

7|HomePremium|Dealin|8YDX9-B7MMG-82XD9-V88G9-MR92T

7|HomePremium|Dell|6RBBT-F8VPQ-QCPVQ-KHRB8-RMV82

7|HomePremium|EXO|GRDX4-HGYJQ-CWJ6B-3HVT2-YKRG4

7|HomePremium|Fujitsu|C6MHH-TRRPT-74TDC-FHRMV-XB88W

7|HomePremium|Genuine|2V36J-4RK8B-GW27Q-4DXPG-RQP78

7|HomePremium|Gigabyte|3743C-T6892-B4PHM-JHFKY-4BB7W

7|HomePremium|HCL|39QDH-D7MHH-WDMTD-TM2R9-KM7DB

7|HomePremium|HP|4FG99-BC3HD-73CQT-WMF7J-3Q6C9

7|HomePremium|Impression Computers|P434X-9H862-PTK88-YGH82-G3THD

7|HomePremium|INSYS|HT89B-V9F8T-TJQP6-7DB4P-WYPY9

7|HomePremium|Jetway|J8DTW-BFYQK-QDQ64-RHWB3-CC9WR

7|HomePremium|Kraftway|6H6K2-Y6CVC-PR6BK-WQ2WP-TJVJ9

7|HomePremium|Lenovo|27GBM-Y4QQC-JKHXW-D9W83-FJQKD

7|HomePremium|LG|38GRR-KMG3D-BTP99-TC9G4-BBDJJ

7|HomePremium|MA Technology|P88MP-94P37-G242D-B68GR-23RWC

7|HomePremium|Medion|2P2P9-CM3F8-FTV6P-PC7CX-8TFF7

7|HomePremium|Midern|2J2K4-6WWJT-V44PT-TVDP9-XP7RF

7|HomePremium|MSI|4G3GR-J6JDJ-D96PV-T9B9D-M8X2Q

7|HomePremium|ONKYO|6WMCP-JJHVF-GK796-9JB9X-BFX3R

7|HomePremium|Packard Bell|VQB3X-Q3KP8-WJ2H8-R6B6D-7QJB7

7|HomePremium|Paradigit|J84PD-BHP6K-FCHBJ-7PHWD-76MXK

7|HomePremium|Philco|TTJQ7-4PFJC-6JFJ8-B22VD-VXW88

7|HomePremium|Quanmax|BHJWK-9K4HP-M9DQ2-XX3DR-CJFMR

7|HomePremium|Samsung|CQBVJ-9J697-PWB9R-4K7W4-2BT4J

7|HomePremium|Shuttle|C3V4C-6Y6WM-DGRM9-QJG82-8K3FP

7|HomePremium|Siragon|HWDFB-YVFG4-3TJ7F-Q3WMT-7B6PH

7|HomePremium|Sony|H4JWX-WHKWT-VGV87-C7XPK-CGKHQ

7|HomePremium|Stone|86DTG-C7PDC-JDHKH-PGDM7-V9FVY

7|HomePremium|Systemax|BD778-VXDGJ-X233M-Q839T-VJ3BG

7|HomePremium|Tarox|BWHCT-BWJPG-H9PV3-4V4WT-9978X

Сортировка по возрастанию. program bifi; const n=50; var a: array[1..n] of real; i,j: integer; k: real; begin for i: =1 to n do a[i]: =random(100); for i: =1 to n-1 do for j: =i+1 to n do if a[j]< a[i] then begin                                               k: =a[i];                                               a[i]: =a[j];                                               a[j]: =k;                                               end; end.