Question

Задание по программированию pascal Заменить к-й элемент одномерного массива на количество нулевых элементов и сделать блок схему

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!
begin

  var mas:=ArrRandom(20,0,10); mas.Println;

  var k:=Readinteger('Введите индекс элемента который находится в диапазоне 0..20:->');

  var a:=mas.Where(t->t=0).Count; Writeln('Количество 0=',a);  mas[k]:=a;

  mas.Println;

end.