Массивы, turbo pascal Опции

[compiler]

можна написать так...

var 
        a:array[1..3, 1..4] of integer;
        i, j:integer;
begin
        for i:=low(a) to high(a) do
                for j:=low(a[low(a)]) to high(a[low(a)]) do
                        readln(a[i, j]);


        i:=low(a)+1;
        while (i<high(a)) do begin
                for j:=low(a[low(a)]) to high(a[low(a)]) do
                        a[i, j]:=1;
                i:=i+2;
        end;

        for i:=low(a) to high(a) do begin
                for j:=low(a[low(a)]) to high(a[low(a)]) do
                        write(a[i, j]:3);
                writeln;
        end;
end.

а можна так...

var
        a:array[1..3, 1..4] of integer;
        i, j:integer;
begin
        for i:=1 to 3 do
                for j:=1 to 4 do
                        readln(a[i, j]);
        for i:=1 to 4 do
                a[2,i]:=1;
        for i:=1 to 3 do begin
                for j:=1 to 4 do
                        write(a[i, j]:3);
                writeln;
        end;
end.

зы будут вопросы -- задавай...
зы2 сначало разберись со вторым вариантом...


Сообщение отредактировано: compiler - 1.01.2008 17:42

[Гость]

Ништяк compilier.! Так как ты надо побольше!

[Гость]

А вот следующее задание




В ТЕСКТЕ ЗАМЕНИТЬ Р НА СОЧЕТАНИЕ Р1. Что за задача не пойму никак....

[Гость]

Compilier ты тут?

[Гость]

кто сможет решить задачу?


В массиве из 40-элементов упорядочить
1-ые 20 элементов по возрастанию
2-ые 20 элементов по убыванию

Массив одномерный.

Нужно тут использовать random(n).

[compiler]

Compilier ты тут?

у меня в профиле есть для этого статус

зы одна задача -- одна тема! в этой теме я отвечать по другой задаче не буду... открывай новую тему..

>>Ништяк compilier.! Так как ты надо побольше!
форум этого не выдержет:)

[Гость]

Я создал тему АФ КГТУ назся

[мисс_граффити]

Не, ну я понимаю, что Новый год. Выпитое не проходит бесследно...
Но правила есть правила.
Нечего разводить в чужой старой теме свалку из задач.
Закрыто.