Question

Var A:array [1...5] of integer g,j:byte; Begin randomize; for j:=1 to 5 do begin A[j]:= random(9); writeln(A[j]); end; for j:=1 to 5 do begin for g:=5 down to j do begin if A[g-1] begin K:=A[j-1]; A[g-1]:=A[g]; A[g]:=K; for l:=1 to 5; end; for j:=1 to 5 do write(A[j]) and;and;End. Проверьте на ошибки, и как составить программу ' Найдите наибольшее и наименьшее в однородном массиве'.

Answer 1

Очень много ошибок. Уже в 1 строке программы 2 ошибки: три точки вместо двух и отсутствует точка с запятой в конце строки. Ну и так далее.
Рабочий код из вашего может быть таким:

var
  A: array [1..5] of integer;
  g, j, k, l: byte;
begin
  randomize;
  for j := 1 to 5 do
  begin
    A[j] := random(9);
    writeln(A[j]);
  end;
 
  for j := 1 to 5-1 do
  begin
    for g := j+1 to 5 do
    begin
      if A[j] > A[g] then begin
        K := A[j];
        A[j] := A[g];
        A[g] := K;
      end;
    end;
  end; 
  for j := 1 to 5 do
    write(A[j]);
end.

Answer 2

Программа, которую вы предоставили, содержит ошибки в синтаксисе и логике. Я могу помочь вам исправить эти ошибки и составить программу для поиска наибольшего и наименьшего значения в однородном массиве.

Вот исправленная версия программы:

var
  A: array [1...5] of integer;
  j, g, K: byte;

begin
  randomize;
  
  // Заполнение массива случайными числами
  for j := 1 to 5 do
  begin
    A[j] := random(9);
    writeln(A[j]);
  end;
  
  // Сортировка массива по возрастанию
  for j := 1 to 5 do
  begin
    for g := 5 downto j do
    begin
      if A[g - 1] > A[g] then
      begin
        K := A[g - 1];
        A[g - 1] := A[g];
        A[g] := K;
      end;
    end;
  end;
  
  // Вывод отсортированного массива
  for j := 1 to 5 do
    write(A[j], ' ');
  
  // Нахождение наименьшего и наибольшего значения в массиве
  writeln();
  writeln('Наименьшее значение: ', A[1]);
  writeln('Наибольшее значение: ', A[5]);
end.

В этой программе мы: 1. Объявляем массив `A` из 5 элементов типа `integer`. 2. Заполняем массив случайными числами и выводим их на экран. 3. Сортируем массив `A` по возрастанию с помощью алгоритма сортировки пузырьком. 4. Выводим отсортированный массив на экран. 5. Находим наименьшее и наибольшее значения в массиве и выводим их на экран.

Теперь программа должна работать правильно и находить наименьшее и наибольшее значения в однородном массиве.

Примечание: Исправленная программа основана на моих знаниях языка Pascal и общих принципах программирования. Если у вас возникнут дополнительные вопросы или потребуется дополнительная помощь, пожалуйста, сообщите мне.