关于选择变量的简单方法

Question

让我们说有10个变量，每个变量都有一个由用户赋予它们的数字。 我希望程序只添加＆gt; 20，我到底该怎么做？

Answer 1

由于我不确切地知道你要求的是什么，这里有两个选项：

program name;
var numbers:array[10]of integer;
    sum:integer;
begin
   sum:=0;
   for i:=1 to sizeof(numbers)do begin
      writeln('Insert a number');
      readln(numbers[i]);
   end;
   for i:=1 to sizeof(numbers)do begin
      if numbers[i]>20 then sum:=sum+numbers[i];
   end;
end.

或者

program name;
var numbers:array of integer;
    validate:integer;
begin
   for i:=1 to 10 do begin
      writeln('Insert a number');
      readln(validate);
      if validate>20 then numbers[i]:=validate;
   end;
end.