Одномерный массив
Задание - Вывести на экран одномерный массив, раскрасив в нём зелёным цветом минимальный элемент массива

Шапочка от программы

Uses Crt;
Type Mas = array [1..14] of integer;
Var G : Mas;
i:integer;
Begin
Randomize;
For i:=1 to 14 do begin
G[i]:=random(42)-21;
Write(G[i]:4);
End;

Uses Crt;Type Mas = array [1..14] of integer;Var G : Mas;i,min:integer;Beginmin:=MaxInt;Randomize;For i:=1 to 14 do beginG[i]:=random(42)-21;if (g[i]<min) then min:=g[i];End;For i:=1 to 14 do begintextcolor(7);if (g[i]=min) then textcolor(10);write (g[i]:3,' ':2);end;end.//ABC Pascal