Transcript Массивы

Методы работы с одномерными
массивами.
Примеры Задач.
Paskal -6
Во всех примерах:
Дан массив(ы) A из N элементов.
• Элементы массива(ов) должны быть
введены.
• Результаты должны быть выведены.
• В примерах даны только фрагменты
программ
Заменить отрицательные
элементы массива на их
модули
For i:=1 To n Do
If A[i]<0 Then A[i]:=-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.
Найти минимальный элемент нового
массива.