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

не кратным

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

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

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

удачи)

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.ПримерЭлементов в массиве: 72 1 0 -1 -2 -3 -4210-1-2-3-4Некратных семи: 6Отрицательных: 42 1 -1 -2 99 -3 -4