// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var n:=ReadInteger('n='); var a:=ArrRandomReal(n,1,50); a.Println; var m:=a.Min; if m<>0 then for var i:=0 to n-1 do a[i]/=m; a.Println end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,1,50); a.Println; var m:=a.Max; if m<>0 then for var i:=0 to n-1 do a[i]+=m; a.Println end.
var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.