оператор case of

[wlll]

оператор Как заполнять массив?
1. Как константу.
2. Случайные числа.
3. Вручную.
не получается(

program z1;
 var a:array[1..3,1..3] of integer;
 k,i,j,n:integer;

  begin


 readln(k);
 case k of
 1:for i:=1 to 3 do
 for j:=1 to 3 do
 a[i,j]:=n;
 2:for i:=1 to 3 do
 for j:=1 to 3 do
 a[i,j]:=random(100);
 3:for i:=1 to 3 do
 for j:=1 to 3 do readln(a[i,j]);
 end;

 readln;
 end.

[Utkin]

Вот здесь посмотри - http://www.delphibasics.ru/ReadLn.php
Ты даешь задание Дельфи - засунь в число строку введенную с клавиатуры. Как должна себя вести Дельфи в таком случае?

[GetMax]

Заполнить массив ручным способом можно так:

For i:=1 to 3 do
Begin
   Write('Введите ',i, ' -ю строку: ');
   For j:=1 to 3 do 
   Readln(a[i,j]);
end;

[wlll]

это паскаль(
также должно быть?

[Пепел Феникса]

да так же.