нужно сформировать линейный массив по формуле, вывод должен быть в строку и столбик.
Найти количество элементов некратных 7.
Количество отрицательных элементов.
Удалить 3 элемент и вставить 99 на 5 место

формулу любую

random сойдет?)

честно не знаю, но все равно спасибо)

constmaxn = 100;typemyarr = array [1..maxn] of longint;vara: myarr;i, n, k7, kotr: longint;beginwriteln('Введите количество элементов массива:');readln(n);for i := 1 to n do begina[i] := random(100); //i * i div a[i - 1];if (a[i] mod 7 = 0) theninc(k7);if (a[i] < 0) theninc(kotr);end;write(a[i], ' ');for i := 3 to 5 doa[i] := a[i + 1];a[5] := 99;for i := 1 to n dowriteln(a[i]);end.И где, собственно, формула?