Тема: Методы работы с одномерными массивами
Заменить отрицательные элементы массива на их модули
Добавить к каждому элементу массива число 25
Если элемент четный, то добавить к нему первый, а иначе последний элемент массива
Получить третий массив как сумму соответствующих элементов 2 заданных
Получить элементы третьего массива как максимальные из 2 заданных массивов
Найти значение максимального по модулю элемента массива
Практическая работа
126.00K
Категория: ПрограммированиеПрограммирование

Методы работы с одномерными массивами

1. Тема: Методы работы с одномерными массивами

Цель:
- научиться решать задачи на обработку одномерных
массивов с помощью языка программирования
Паскаль.

2.

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

3. Заменить отрицательные элементы массива на их модули

For i:=1 To n Do
If A[i]<0 Then A[i]:=-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.

Найти среднее арифметическое
положительных элементов массива
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. Практическая работа

• Составьте и проверьте программы
со всеми разобранными на уроке
фрагментами программ (на «3» балла)
• Решите задачу: (на «4» / «5» баллов)
Из положительных элементов массива
вычесть 2, найти сумму отрицательных
элементов и количество нулей.
Найти минимальный элемент нового
массива.
English     Русский Правила