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

Да, это должно решаться одной программой. const n=15; var   a: array[1..n] of integer;   k,k2: integer;   i: byte; begin   randomize;   k: =0;   writeln ('исходный массив: ');   for i: =1 to n do begin         a[i]: =random(10);     write (a[i]: 3);     if a[i]=8 then begin k: =k+1; a[i]: =0; end;   end;   writeln;   if k=0 then writeln ('нет элементов, равных 8')     else writeln ('количество элементов, равных 8: ',k);     k2: =0;   writeln;   writeln ('измененный массив: ');   for i: =1 to n do begin     write (a[i]: 3);     if a[i]=0 then k2: =k2+1;   end;   writeln;   if k2=0 then writeln ('нет элементов, равных 0')     else writeln ('количество элементов, равных 0: ',k);   a[n]: =k*8;   writeln ('сумма первоначальных восьмерок и нулей = ',a[n]);   writeln ('количество восьмерок (изначальных) и нулей = ',k+k2);   end. результат: исходный массив:   5   8   2   2   3   7   2   8   3   3   4   2   3   2   5 количество элементов, равных 8: 2 измененный массив:   5   0   2   2   3   7   2   0   3   3   4   2   3   2   5 количество элементов, равных 0: 2 сумма первоначальных восьмерок и нулей = 16 количество восьмерок (изначальных) и нулей = 4

pascalabc.net

begin

  var a : = readarrinteger('введите 10 чисел: ', 10);

  var amax : = a.max;

  var s : = a.where(p -> p < > amax).orderdescending;

  if s.count > 0 then

  begin

    var apmax : = s.first;

    var i : = a.findindex(p -> p = apmax);

    println('предмаксимальный элемент', apmax, 'номер', i+1)

  end

  else

    println('нет решения: все элементы в массиве одинаковы')

end.