主页 / 问题 / 1087932
Accepted
dbUser11
Asked:2020-02-27 03:45:09 +0000 UTC2020-02-27 03:45:09 +0000 UTC

组织数组元素输出的问题

  • 772

我需要填写 PRNG 向量。我做的。接下来，按以下顺序打印数组的元素：

a1,a10,a2,a11...a9,a18

我写的代码只按照我想要的顺序找到前两个元素。也就是说，a1,a10 这是因为步骤 (i) 变为 > N。我真的需要关于如何解决这个问题的帮助。

编码：

const Sz = 100; // Размер массива

var 
  a: array [1..Sz] of real;
  N: integer; // Количество элементов в массиве
  i: integer;

begin
  N := 18;
  for i:=1 to N do
    a[i] := Random(100) * 0.6;

  write('Сгенерированные элементы массива > ');
  for i:=1 to N do
    begin
    if i <> N then
      write(i, ') ', a[i],'; ');
    if i = N then
      writeln(i, ') ', a[i],'. ');
    end;
    writeln();

    write('Искомые элементы > ');
    i := 1;
    while N >= i do
      begin
      if i <> N then
      write(i, ') ', a[i],'; ');
      if i = N then {проверка на последний элемент, для точки}
      writeln(i, ') ', a[i],'. ');
      i+=9;
    end;

end.
массивы

1 个回答

  1. Best Answer
    i := 1;
while N >= (i + 9) do
begin
  write(a[i], a[i + 9]);
  Inc(i);
end;
    • 1

相关问题