Задание по программированию pascal
Заменить к-й элемент одномерного массива на количество нулевых элементов
и сделать блок схему
Нет комментариев
Ответы
Гость //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.
Нет комментариев
Похожие вопросы
Список предметов
