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

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

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

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

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

5 Если элемент четный, то добавить к нему первый, а иначе последний элемент массива 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];

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

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

8 Дан первый элемент массива и каждый следующий на 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);

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

10 Найти 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

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

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