Решите мне задачку на динамический массив!
Добавлено: 18 май 2014, 09:14
Дана последовательность действительных чисел . Заменить все ее члены, большие данного числа Z, этим числом. Подсчитать количество замен.
Код: Выделить всё
count := 0;
if length(arr) > 0 then for x := 0 to length(arr)-1 do if arr[x] > Z then begin; arr[x] := Z; inc(count); end;