Задайте случайным образом массив из N элементов. Выведите его на экран "ёлочкой". Вот начало такого вывода:
1
2 3
4 5 6
7 8 9 10
11 12 ......
Второй вариант - сделайте то же самое, но не используйте массив: у вас есть переменная N, выведете на экран, все числа до N, по тому же принципе что и выше, например, если N=9, то получим:
Задать двумерный массив размерностью m на n (MxN) элементов (m и n вынести в область определения констант), заполнить его случайными значениями и вывести их на экран уже после того, как весь массив будет заполнен (т.е. заполнять и выводить в разных группах циклов).
Дано некоторое число длиной от 1 до 5 символов, вывести все его "нечётные" цифры в обратном порядке (аналогично предыдущей задаче), если же таких цифр не найдёт, вывести сообщение "Нечетных цифр не обнаружено!"
Вывести на экран N случайных чисел (каждое с новой строки). Для каждого числа, начиная со второго, рядом выводить - больше ли оно предыдущего или меньше. например:
var s:string; i, n: Integer;
a: array[1..8] of char;
begin
writeln('Vvedite stroku');
readln(s);
n := 1;
while(n<10) do // 1-8
begin
for i:=1 to Length(s) do
if (s[i]>='0')and(s[i]<='9') then
begin
a[n]:=s[i];
inc(n);
end;
end;
for i:=low(a) to high(a) do
write(a[i],' '); // выводим массив
readln();
end.