2017年10月08日普及组蜡烛

SSLGZ_yyc

于 2017-10-08 20:30:53 发布

阅读量337

点赞数

CC 4.0 BY-SA版权

分类专栏：普及模拟赛贪心

本文链接：https://blog.youkuaiyun.com/SSLGZ_yyc/article/details/78177206

普及模拟赛同时被 2 个专栏收录

91 篇文章

订阅专栏

贪心

37 篇文章

订阅专栏

本文介绍了一个使用Pascal语言实现的数组排序及元素减一的操作流程。通过对输入的整数数组进行排序并根据特定条件减少数组中指定数量的元素，展示了基本的数组操作技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这里写图片描述

程序：

var
n,i,j,t,k,sum:longint;
a:array[0..10000] of longint;
begin
    assign(input,'lazhu.in');
    reset(input);
    assign(output,'lazhu.out');
    rewrite(output);
    readln(n);
    for i:=1 to n do
    read(a[i]);
    for k:=1 to 100 do
    begin
        for i:=1 to n-1 do
        for j:=i+1 to n do
        if a[i]<a[j] then
        begin
            t:=a[i];a[i]:=a[j];a[j]:=t;
        end;
        sum:=0;
        for i:=1 to n do
        if a[i]<>0 then inc(sum);
        if sum<k then break;
        for i:=1 to k do
        dec(a[i]);
    end;
    writeln(k-1);
    close(input);
    close(output);
end.