Нужно сформировать линейный массив по формуле a[i]:=3-i*2+i Вывод в столбик и в строку...

Question

Нужно сформировать линейный массив по формуле a[i]:=3-i*2+i
Вывод в столбик и в строку
Найти количество элементов некратных 7.
Количество отрицательных элементов.
Удалить 3 элемент и вставить 99 на 5 место

Comments

Язык программирования? Длина массива?

---

Объясните, что это: "Вывод в столбик и в строку"

---

по видимому черед write или writeln, если в операторах паскаля

---

Я не задаю вопрос КАК НАПИСАТЬ, я спрашиваю, КАК ДОЛЖНО ВЫГЛЯДЕТЬ. Т.е. это надо как-то волшебно сформировать данные или просто ДВАЖДЫ их вывести по-разному?

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=readInteger('Элементов в массиве:');
  var a:=ArrGen(n,i->3-i*2+i,1);
  a.Println; Writeln; a.PrintLines;
  Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count);
  Writeln('Отрицательных: ',a.Where(t->t<0).Count);  <br>  a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println;
end.

Пример
Элементов в массиве: 7
2 1 0 -1 -2 -3 -4

2
1
0
-1
-2
-3
-4
Некратных семи: 6
Отрицательных: 4
2 1 -1 -2 99 -3 -4

Answer 2

Много не точности. Длину массива сделал через ввод пользователя.
Скинул текстовый документ и саму программу.

-------------------------------------------------------------------------------------------------------
Настоящий мастер — это вечный ученик.

---

Скачать вложение Текст (TXT)

Comments

это вообще работает теперь?

---

Удаляйте это, я файлом скину.

---

спасибо огромное, все открылось)

---

Не за что.

---

если не ошибаюсь, вы сделали кратные 7?

---

не кратным

---

хорошо, спасибо)

---

можешь затестить, если есть Паскаль рядом

---

затестила, все нормально)

---

удачи)