Question

Срочно PascalABC!!!!!!!!! Дан одномерный массив A, найти наибольший отрицательный элемент массива и определить его нахождение

Answer 1

const N = 15;

var

arr: array[1..N] of integer;

i: byte;

index: byte;

begin

randomize;

for i:=1 to N do begin

arr[i] := random(100) - 50;

write(arr[i],' ');

end;

writeln;

index := 0;

for i:=1 to N do begin

if (arr[i] < 0) and (index = 0) then

index := i

else

if (arr[i] < 0) and (arr[i] > arr[index]) then

index := i;

end;

if index <> 0 then

writeln(index,': ',arr[index]);

end.

Answer 2

Хорошо, вот пример программы на PascalABC, которая находит наибольший отрицательный элемент в одномерном массиве A и определяет его нахождение:

pascalCopy code
program FindMaxNegativeElement;

const
  N = 10; // Размер массива, можно изменить по своему усмотрению

var
  A: array[1..N] of integer;
  i, maxNegativeElement: integer;
  found: boolean;

begin
  // Заполняем массив A случайными значениями
  for i := 1 to N do
    A[i] := Random(100) - 50; // Генерируем случайные значения от -50 до 49

  // Выводим элементы массива на экран
  writeln('Массив A:');
  for i := 1 to N do
    write(A[i], ' ');

  // Ищем наибольший отрицательный элемент
  maxNegativeElement := -1; // Предполагаем, что отрицательных элементов нет
  found := false; // Предполагаем, что отрицательных элементов нет

  for i := 1 to N do
  begin
    if (A[i] < 0) and (not found or (A[i] > maxNegativeElement)) then
    begin
      maxNegativeElement := A[i];
      found := true;
    end;
  end;

  // Выводим результат
  if found then
    writeln('Наибольший отрицательный элемент массива: ', maxNegativeElement)
  else
    writeln('В массиве нет отрицательных элементов.');

  readln;
end.

Программа создает одномерный массив A размером N и заполняет его случайными целыми числами от -50 до 49. Затем она находит наибольший отрицательный элемент массива и выводит его на экран. Если в массиве нет отрицательных элементов, программа также сообщит об этом.