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

Answer 2

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

Приведенный код на языке Pascal реализует следующую задачу: 1. Создает одномерный массив `G` размером 14 элементов типа `integer`. 2. Заполняет массив случайными числами от -21 до 21. 3. Выводит элементы массива на экран, каждый элемент занимает 4 символа.

Для решения данной задачи, необходимо найти минимальный элемент массива и выделить его зеленым цветом при выводе на экран.

Вот модифицированный код, который решает задачу:

uses Crt;

type
  Mas = array[1..14] of integer;
  
var
  G: Mas;
  i, minIndex: integer;
  minValue: integer;
  
begin
  Randomize;
  
  // Заполняем массив случайными числами от -21 до 21
  for i := 1 to 14 do
  begin
    G[i] := random(42) - 21;
    Write(G[i]:4);
  end;
  
  // Находим минимальный элемент массива
  minIndex := 1;
  minValue := G[1];
  
  for i := 2 to 14 do
  begin
    if G[i] < minValue then
    begin
      minIndex := i;
      minValue := G[i];
    end;
  end;
  
  // Выводим массив на экран, выделяя минимальный элемент зеленым цветом
  Writeln;
  for i := 1 to 14 do
  begin
    if i = minIndex then
    begin
      TextColor(Green);
      Write(G[i]:4);
      TextColor(White);
    end
    else
    begin
      Write(G[i]:4);
    end;
  end;
  
  ReadLn;
end.

В этом коде добавлены следующие изменения: - Объявлены переменные `minIndex` и `minValue`, в которых будут храниться индекс и значение минимального элемента массива соответственно. - Добавлен цикл для поиска минимального элемента массива. Перебираются все элементы массива, и если очередной элемент меньше текущего минимального значения, то обновляются значения `minIndex` и `minValue`. - После вывода массива на экран, используется условие `if i = minIndex` для выделения минимального элемента зеленым цветом с помощью функции `TextColor(Green)`. После вывода минимального элемента цвет возвращается к белому с помощью `TextColor(White)`.

Примечание: Для работы с текстовым цветом в консоли используется модуль `Crt`, поэтому в начале кода включена его директива `uses Crt`.