Question

Дана последовательность действительных чисел а1, а2,...,an. Заменить все её члены, больше данного Z, этим числом. Подсчитать количество замен. Помогите,пожалуйста,написать программу. Я запуталась что-то.

Answer 1

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.

Answer 2

почему так много writeln? и что значит :? write(ar[i]:4);

Answer 3

Пришлось много раз переносить строку чтобы выглядело презентабельно. Это значит, что отступ перед выводом будет равен трём пробелам.

Answer 4

setlength(ar,n+1); а что это такое? простите за беспокойство

Answer 5

Данная процедура выделяет в памяти достаточно места для хранения n-ого количества элементов массива ar

Answer 6

спасибо