Дана последовательность действительных чисел а1, а2,...,an. Заменить все её члены, больше данного Z, этим числом. Подсчитать количество замен. Помогите,пожалуйста,написать программу. Я запуталась что-то.
Var ar:array of integer; z,i,n,o:integer; begin; o:=0; readln(n); readln(z); setlength(ar,n+1); for i:=1 to n do begin; readln(ar[i]); if ar[i]>z then begin; inc(o); ar[i]:=z; end; end; writeln('Array:'); for i:=1 to n do write(ar[i]:4); writeln; writeln('Количество замен=',o); end.
почему так много writeln? и что значит :? write(ar[i]:4);
Пришлось много раз переносить строку чтобы выглядело презентабельно. Это значит, что отступ перед выводом будет равен трём пробелам.
setlength(ar,n+1); а что это такое? простите за беспокойство
Данная процедура выделяет в памяти достаточно места для хранения n-ого количества элементов массива ar
спасибо