//1 Var ar:array[1..5] of integer; min,i:integer; begin min:=2147483647; for i:=1 to 5 do begin readln(ar[i]); if ar[i]<min then min:=ar[i]; end; write('Min=',min); end.
Пример ввода: 6 -6 3 4 5 Пример вывода: Min=-6
//2
Var ar:array[1..20] of integer; i,s:integer; begin; randomize; s:=0; writeln('Array:'); for i:=1 to 20 do begin; ar[i]:=random(101); write(ar[i]:4); if ar[i] mod 7=0 then s:=s+ar[i]; end; writeln; write('Sum=',s); end.
Программа векторной графики CorelDRAW 12 вместе с программой растровой графики Corel PHOTO-PAINT 12 и несколькими дополнительными программами составляет пакет графических программ CorelDRAW Graphic Suite 12, разработанный известной фирмой-производителем графических программных продуктов Corel Corporation. CorelDRAW 12 предназначена для разработки макетов документов, в которых преобладает графическая информация, с целью их публикации в качестве типографской продукции и в электронном виде. Программы, позволяющие обрабатывать векторные объекты наряду с растровыми изображениями и текстовой информацией, обычно называются программами векторной графики. Это название можно отнести и к программе CorelDRAW 12. Вместе с тем, ее функциональные возможности существенно шире, чем у других известных программ подобного типа (Macromedia FreeHand и Adobe Illustrator). надеюсь это подойдёт. когда то писала такое 5 получила
языком разметки гипертекста HTML (Hyper Text Markup Language)
Объяснение: