Arrays 二维数组-带循环的PASCAL格式

我需要写一个程序来演示2d数组，该程序需要询问学生姓名，然后是分数。。这是给15个学生的。最后，程序输出15个名称，旁边有它们的标记

我不知道如何精确地操作二维数组，我设法在不使用for循环的情况下实现了简单的版本

`

等。不超过15号学生。。。但我知道我可以使用两个for循环来为我做这件事，而不是为每个学生复制代码。。。输出相同。。。我花了好几个小时想知道如何通过不同的尝试做到这一点。。。但是我仍然对使用两个for循环和正确索引这个数组感到困惑

有人能帮我做这个适当的循环吗

---

谢谢

哇，帕斯卡，好久不见了！这是学习编程的好语言

试试这样的

program testarray2d;

uses crt;

var
    table: array[1..2, 1..15] of string;   {2 rows for 15 columns}
    counter: Integer;

Begin
     writeln('Enter 15 student names, and a set of marks after each ');
     writeln('With marks you can enter more marks after comma for e.g. 34, 26, 31 etc.');

      For counter := 1 to 15 do 
       Begin
        writeln('Enter NAME and SURNAME of STUDENT NR ');
        write(counter);
        write(' or q to quit ');
        readln(table[1][counter]);                                
        writeln('Enter MARKS of STUDENT NR ');
        write(counter);
        readln(table[2][counter]);                                  
        clrscr;
      End;
End.

---

请让我知道它是否有效，因为我还没有测试过它。

这很好，但是如何以相同的方式输出列和行？我已经尝试过writetable[1,2][counter]，但它不能正常工作。。。我试过writetable[1][counter]这只适用于名字，你知道我如何在每个名字旁边打上标记吗？用write“”；可写[2][计数器]；在可写[1][counter]之后；非常感谢，我现在会记住如何使用这些2d阵列，我更接近于正确理解它！没问题！希望您也了解如何构建for循环。你可以把问题标记为已回答。

program testarray2d;

uses crt;

var
    table: array[1..2, 1..15] of string;   {2 rows for 15 columns}
    counter: Integer;

Begin
     writeln('Enter 15 student names, and a set of marks after each ');
     writeln('With marks you can enter more marks after comma for e.g. 34, 26, 31 etc.');

      For counter := 1 to 15 do 
       Begin
        writeln('Enter NAME and SURNAME of STUDENT NR ');
        write(counter);
        write(' or q to quit ');
        readln(table[1][counter]);                                
        writeln('Enter MARKS of STUDENT NR ');
        write(counter);
        readln(table[2][counter]);                                  
        clrscr;
      End;
End.