- Регистрация
- 31 Мар 2010
- Сообщения
- 6.143
- Реакции
- 251
- Баллы
- 429
- Лучшие ответы
- 0
program mas;
var A:array[1..3, 1..3] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(A[i,j]);
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(A[i,j]);
writeln;
end;
end.
Вот как-то так получилось.
var A:array[1..3, 1..3] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(A[i,j]);
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(A[i,j]);
writeln;
end;
end.
Вот как-то так получилось.
Напиши randomize перед циклом, а вместо read(A[i,j]) -> A[i,j] = random(100);