Question

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

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

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;

Answer 1

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