По оканчании каждой недели буратино приносит папе карло свой заработок в х сельди. карло за следующую неделю тратит ровно половину имевшихся на её начало денег. в начале срока у них было y сольди. составить программу, которая выводила бы в виде таблицы номера недель ( от 1 до 12) и суммы, имевшиеся у буратино и карло на начало и конец недели. выполнить программу для х=20, y=1000; x=20, y=0; x=1000, y=20.

Не знаю, на каком языке ты программируешь... я написал на C#
 using System;
namespace ConsoleApplication55{    class Program    {        static void Main(string[] args)        {            link:            Console.Write("Введите кол-во элементов  числовой последовательности: ");            int kol = Convert.ToInt32(Console.ReadLine());            if (kol > 100 || kol < 0)                goto link;            Random ran = new Random();            int[] array = new int[kol];            Console.WriteLine("\nПоследовательность чисел в строчку: ");            for (int i = 0; i < array.Length; i++)            {                array[i] = ran.Next(1, 1000);                Console.Write(array[i] + " ");            }            Console.Write("\n\nПоследовательность чисел, где каждое с новой строки:\n");            for (int i = 0; i < array.Length; i++)                Console.Write(array[i] + "\n");            Console.ReadKey();        }    }}
Смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь  него рандомные(случайные) числа с периодом от 1 до 1000. После этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в С# это "\n"), в Паскале это writeln и т.д.

1)

CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
    D%(i) = RND * (2 * N + 1) - N
    PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
    IF D%(i) = T THEN
       K = K + 1
    END IF
NEXT i
PRINT "K = "; K
END

2)

CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
    D%(i) = RND * 41 - 20
    PRINT " "; D%(i);
    IF D%(i) < 7 THEN
       K = K + 1
       C%(K) = D%(i)
    END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
    PRINT " "; C%(i);
NEXT i
END