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

var
arr: array[1..16] of integer;
i, max, count: integer;

begin
arr[1] := 10;
arr[2] := -5;
arr[3] := 20;
arr[4] := -3;
arr[5] := 15;
arr[6] := 7;
arr[7] := -2;
arr[8] := 30;
arr[9] := 12;
arr[10] := -10;
arr[11] := 25;
arr[12] := 18;
arr[13] := -8;
arr[14] := 22;
arr[15] := 35;
arr[16] := -15;

max := arr[1];
for i := 2 to 16 do
if arr[i] > max then
max := arr[i];

count := 0;
for i := 1 to 16 do
if arr[i] < 0 then
count := count + 1;

writeln('Максимальный элемент: ', max);
writeln('Число отрицательных: ', count);
end.

 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.