Одномерный массив - вывести на экран одномерный массив, раскрасив в нём зелёным цветом минимальный элемент массива шапочка от программы 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;

169

176

Посмотреть ответы 2

Ответы на вопрос:

ролл10

Информатика

4,4(87 оценок)

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