11.03.2009, 02:41
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами:
9416345
Репутация:
165
|
|
Сообщение от lll6
Помогите заполнить массив в таком вот порядке
Код:
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
То есть по диагонали заполняется. Размеры массива могут быть любыми, массив квадратный.
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var MyArray:array [1..4,1..4] of integer; i,j,x:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
begin
readln(x);
MyArray[i,j]:=x;
end;
end.
Я так понял?//
PS не знал что в 1м классе уже паскаль проходят/// х(
|
|
|