Нужно сформировать линейный массив по формуле, вывод должен быть в строку и столбик....

Question

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

Comments

Но не после того, как Вам ответ дали!

---

ну может у вас другой ответ

---

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

---

Я думаю, что имелось ввиду, что нужно 2-мя способами вывести его

---

А я считаю, что тут есть ПРАВИЛА и их параграф 3 говорит нам о том, что "Проблемы, содержащиеся в вопросе должны быть изложены конкретным, четким и исчерпывающим образом, ...". И вот этого я тут не наблюдаю.

---

Поэтому хочу объяснений от автора вопроса

---

Думаю, что она сама не знает) И мне в принципе вопрос до конца не ясен.

---

Когда вопрос не ясен до конца, ответ не пишут ))))

---

Ну а я написала)

---

Поскольку параграф 3 нарушен, то модераторы имеют право удалить и ваш ответ и сам вопрос. Но это на их усмотрение....

Answer 1

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

Comments

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

---

random сойдет?)

---

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