Одномерный массив - вывести на экран одномерный массив, раскрасив в нём зелёным цветом минимальный элемент массива шапочка от программы 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;
Begin
min:=MaxInt;
Randomize;
For i:=1 to 14 do begin
G[i]:=random(42)-21;
if (g[i]<min) then min:=g[i];
End;
For i:=1 to 14 do begin
textcolor(7);
if (g[i]=min) then textcolor(10);
write (g[i]:3,' ':2);
end;
end.
//ABC Pascal