Методы работы с одномерными массивами. Примеры Задач. Paskal -6

Дан массив(ы) A из N элементов. Элементы массива(ов) должны быть введены. Элементы массива(ов) должны быть введены. Результаты должны быть выведены. Результаты должны быть выведены. В примерах даны только фрагменты программ В примерах даны только фрагменты программ Во всех примерах:

Заменить отрицательные элементы массива на их модули For i:=1 To n Do If A[i]

Добавить к каждому элементу массива число 25 For i:=1 To n Do A[i]:=A[i]+25;

Если элемент четный, то добавить к нему первый, а иначе последний элемент массива For i:=1 To n Do If A[I] mod 2 =0 then A[I]:=A[i] + A[1] else A[I]:=A[I] +A[n];

Получить третий массив как сумму соответствующих элементов 2 заданных For i:=1 To n Do С[i]:=A[i]+B[i];

Получить элементы третьего массива как максимальные из 2 заданных массивов For i:=1 To n Do If A[i]>B[i] then C[I]:=A[I] else C[I]:=B[I];

Дан первый элемент массива и каждый следующий на d больше предыдущего. Найти первые n элементовмассива и их сумму Begin read (a[1], d; S:=0; For i:=1 To n Do begin A[i]:=A[I-1]+d; s:=s+a[i] End; write (s);

Найти значение максимального по модулю элемента массива Maks:=Abs(A[1]); For i:=2 To n Do If Abs(A[i])>maks then maks:=Abs(A[I])]

Найти cреднее арифметическое положительных элементов массива s:=0; k:=0 For i:=1 To n Do If A[i])>0 then begin s:=s+(A[I]); k:=k+1; end; Average:=s/k

Изменить знак у максимального по модулю элемента массива Maks:= 1; For i:=2 To n Do If Abs(A[i])>Abs(A[maks]) then maks:=I; A[maks]:=-A[maks];

Задание Составьте и проверьте программы со всеми этими фрагментами Решите задачу: Из положительных элементов массива вычесть 2, найти сумму отрицательных, количество 0. Найти минимальный элемент нового массива.