Question

(pascal) Дан массив из 5-и положительных элементов, введённых с клавиатуры. Пользователь вводит символ. Если пользователь вводит символ «X» или «x», то найти наименьший элемент массива и вывести на экран индекс этого элемента. Если пользователь вводит символ «Y» или «y», то отсортировать элементы массива от большего к меньшему. Если пользователь вводит символ «Z» или «z», то найти сумму элементов массива.

Answer 1

 var a: array[1..5] of integer;

     s: char;

     min, i, j, k: integer;

begin

 writeln('Введите массив:');

 for i:=1 to 5 do

 begin

   write('a[',i,'] = ');

   readln(a[i]);

 end;

 

 for i:=1 to 5 do

   write(a[i], ' ');

 writeln;

 

 write('Введите символ (x, y, z): ');

 readln(s);

 

 if (s = 'x') or (s = 'X') then

 begin

   min := a[1];

   k := 1;

   for i:= 2 to 5 do

     if min > a[i] then  

     begin

       min:= a[i];

       k:= i;

     end;

   writeln('Min = ', min, ', Index = ', k);

 end;

 

 if (s = 'y') or (s = 'Y') then

 begin

   for i:= 1 to 5 do

     for j:= 1 to 4 do

       if a[j] > a[j + 1] then

       begin

         k:= a[j];

         a[j]:= a[j + 1];

         a[j + 1]:= k;

      end;

       

   for i:=1 to 5 do

     write(a[i], ' ');

   writeln;                          

 end;

 

 if (s = 'z') or (s = 'Z') then

 begin

   for i:=1 to 5 do

     k:= k + a[i];

     

   writeln('Сумма = ', k);

 end;

end.

 

Answer 2

begin

 var a := ReadArrInteger('Введите 5 чисел:', 5);

 Readln;

 var c := ReadChar('Введите символ x, y или z:').ToLower;

 case c of

   'x': Print('Индекс наименьшего элемента (отсчет от 0):', a.IndexMin);

   'y': a.OrderDescending.Print;

   'z': Print('Сумма элементов массива:', a.Sum);

 else

   begin

     Print('Недопустимый символ');

     exit

   end

 end

end.

Answer 3

Вот пример кода на языке программирования Pascal, который выполняет указанные действия в соответствии с вводом пользователя:

pascalCopy code
program ArrayOperations;
var
  arr: array[1..5] of integer;
  i, minElement, sum: integer;
  option: char;
begin
  // Ввод элементов массива с клавиатуры
  writeln('Введите 5 положительных элементов массива:');
  for i := 1 to 5 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Ввод символа от пользователя
  writeln('Введите символ X, Y или Z:');
  readln(option);

  // Обработка выбора пользователя
  case option of
    'X', 'x':
      begin
        // Найти наименьший элемент и вывести его индекс
        minElement := arr[1];
        for i := 2 to 5 do
        begin
          if arr[i] < minElement then
          begin
            minElement := arr[i];
          end;
        end;
        writeln('Индекс наименьшего элемента: ', minElement);
      end;
    'Y', 'y':
      begin
        // Сортировка массива от большего к меньшему
        for i := 1 to 5 do
        begin
          for j := i + 1 to 5 do
          begin
            if arr[i] < arr[j] then
            begin
              // Обмен элементов
              minElement := arr[i];
              arr[i] := arr[j];
              arr[j] := minElement;
            end;
          end;
        end;
        writeln('Массив, отсортированный от большего к меньшему:');
        for i := 1 to 5 do
        begin
          write(arr[i], ' ');
        end;
        writeln;
      end;
    'Z', 'z':
      begin
        // Найти сумму элементов массива
        sum := 0;
        for i := 1 to 5 do
        begin
          sum := sum + arr[i];
        end;
        writeln('Сумма элементов массива: ', sum);
      end;
  else
    writeln('Неправильный ввод символа.');
  end;
end.

Этот код позволяет пользователю ввести 5 положительных элементов массива и затем символ X, Y или Z для выполнения соответствующего действия в зависимости от выбора.