Code
const
N=9;
a: array [1..N] of byte = (1, 2, 3, 4, 5, 6, 7, 8, 9);
var
i, j: integer;
begin
for i := 1 to N-1 do begin
for j := i to N-1 do begin
write(a[i]);
writeln(a[j]);
end;
end;
end.
Это для жёстко заданного массива.
const
N=9;
a: array [1..N] of byte = (1, 2, 3, 4, 5, 6, 7, 8, 9);
var
i, j: integer;
begin
for i := 1 to N-1 do begin
for j := i to N-1 do begin
write(a[i]);
writeln(a[j]);
end;
end;
end.
Это для жёстко заданного массива.
de1ay,
Да, значит числа повторяться могут. Ступил я сначала..
yah,
С клавиатуры
Soloton,
Спасибо!
Да, значит числа повторяться могут. Ступил я сначала..
yah,
С клавиатуры
Soloton,
Спасибо!
Просто шикарно... на момент моего последнего сообщения программа была уже готова вместе с генератором целых чисел, но.... ВЫРУБИЛИ СВЕТ 
Добавлено:
Если еще нужна программа, в которой используется массив произвольной длинны, то отпишись.
Добавлено:
Если еще нужна программа, в которой используется массив произвольной длинны, то отпишись.
Цитата | Quote(yah @ 20.11.2008 - 17:36)
Если еще нужна программа, в которой используется массив произвольной длинны, то отпишись.
Нет, не нужна, спасибо
SoftoRooM © 2004-2024