Одномерный массив

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

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

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;

Question

Информатика

Лукьян

20 марта, 04:49

Одномерный массив

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

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

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;

+2

Ответы (1)

Знаешь ответ?

Авдий · 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]
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