Question

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

Answer 1

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

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

Answer 2

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);  
  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 3

Давайте выполним задачу по шагам.

Шаг 1: Сформировать линейный массив по формуле a[i]:=3-i*2+i.

Для этого нам нужно определить размер массива и заполнить его элементы согласно заданной формуле. Для примера, возьмем размер массива равным 6.

Массив до изменений: a = [_, _, _, _, _, _]

Теперь, заполним элементы массива по заданной формуле: a[0] = 3 - 0 * 2 + 0 = 3 a[1] = 3 - 1 * 2 + 1 = 2 a[2] = 3 - 2 * 2 + 2 = 1 a[3] = 3 - 3 * 2 + 3 = 3 a[4] = 3 - 4 * 2 + 4 = 4 a[5] = 3 - 5 * 2 + 5 = 3

Массив после изменений: a = [3, 2, 1, 3, 4, 3]

Шаг 2: Вывод массива в столбик и в строку.

Выведем элементы массива сначала в столбик:

Copy code
3
2
1
3
4
3

А теперь выведем элементы массива в строку:

Copy code
3 2 1 3 4 3

Шаг 3: Найти количество элементов некратных 7.

Пройдем по массиву и подсчитаем количество элементов, которые не являются кратными 7.

Количество элементов, некратных 7: 4 (это элементы: 3, 2, 1 и 4).

Шаг 4: Найти количество отрицательных элементов.

Пройдем по массиву и подсчитаем количество отрицательных элементов.

Количество отрицательных элементов: 0 (в данном примере нет отрицательных элементов).

Шаг 5: Удалить 3 элемент и вставить 99 на 5 место.

Удалим третий элемент (индекс 2) из массива и вставим 99 на пятое место (индекс 4).

Массив до изменений: a = [3, 2, 1, 3, 4, 3]

Массив после удаления и вставки: a = [3, 2, 3, 4, 99, 3]

Теперь выведем измененный массив в столбик и в строку:

Вывод в столбик:

Copy code
3
2
3
4
99
3

Вывод в строку:

Copy code
3 2 3 4 99 3

Выполнение всех заданных операций завершено. Если у вас есть еще вопросы или запросы, не стесняйтесь спрашивать!