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

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

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

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

Информатика

Харлам

11 апреля, 20:12

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

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

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

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;

+3

Ответы (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