Введите массив из 16 чисел. Найдите максимум среди всех злементов массива. Найдите количество отрицательных влементов.

 program MaxAndNegatives; 
 
var 
  arr: array[1..16] of Integer = (5, -3, 10, 8, 2, -6, 4, 1, -7, 9, -2, 6, 0, 3, -5, 7); 
  i, maxElement, negativeCount: Integer; 
 
begin 
  maxElement := arr[1];
  negativeCount := 0;
 
  writeln('Массив:'); 
  for i := 1 to 16 do 
    write(arr[i], ' '); 
  writeln; 
 
  for i := 1 to 16 do 
  begin 
    if arr[i] > maxElement then 
      maxElement := arr[i]; 
    if arr[i] < 0 then 
      negativeCount := negativeCount + 1; 
  end; 
 
  writeln('Максимальный элемент массива: ', maxElement); 
  writeln('Количество отрицательных элементов: ', negativeCount); 
  readln; // Ждем нажатия Enter перед завершением программы 
end. 

 program MaxAndNegatives; 
 
var 
  arr: array[1..16] of Integer; 
  i, maxElement, negativeCount: Integer; 
 
begin 
  writeln('Введите 16 чисел для заполнения массива:'); 
  for i := 1 to 16 do 
  begin 
    write('arr[', i, ']: '); 
    readln(arr[i]); 
  end; 
 
  // Вывод введенных пользователем значений массива 
  writeln('Массив:'); 
  for i := 1 to 16 do 
    write(arr[i], ' '); 
  writeln; 
 
  // Находим максимальное значение и количество отрицательных элементов 
  maxElement := arr[1]; 
  negativeCount := 0; 
  for i := 2 to 16 do 
  begin 
    if arr[i] > maxElement then 
      maxElement := arr[i]; 
    if arr[i] < 0 then 
      negativeCount := negativeCount + 1; 
  end; 
 
  // Вывод результатов 
  writeln('Максимальный элемент массива: ', maxElement); 
  writeln('Количество отрицательных элементов: ', negativeCount); 
  readln; // Пауза перед завершением программы 
end.