Доступ к элементам массива Изменение элементов массива. - презентация

1 Доступ к элементам массива Изменение элементов массива

2 Смена знаков элементов массива Procedure Zamena (Var m : MyArray; n:integer); Var i : integer; Begin for i := 1 to n do if m[i] < 0 then m[i] := -1*m[i]; End;

3 Нахождение элементов с заданным свойством Procedure PoiskChet(m : MyArray; n:integer); Var i : integer; Begin for i := 1 to n do if m[i] mod 2 =0 then Write(i:5); End;

4 Нахождение количества элементов с заданным свойством Procedure OtrPol(m : MyArray; ; n:integer; Var k1,k2 : Integer); Var i : integer; Begin k1 :=0; k2 :=0; for i := 1 to n do if m[i] > 0 then Inc(k1) else if m[i] < 0 then Inc(k2); End;

5 Есть ли в массиве элементы с данным свойством? Function Control (m : MyArray; n:integer) : Boolean; Var i : integer; Begin i := 1; while (i 0) do Inc(i); Control := (i<=n); End;

6 Решение задач Дан одномерный массив. Найдите разность наибольшего и наименьшего чисел в этом массиве. Дан одномерный массив. Подсчитайте, сколько раз встречается в этой таблице максимальное по величине число. Дан одномерный целочисленный массив. Составьте программу определения значения наибольшего элемента этого массива. Дан одномерный массив чисел. Подсчитайте, сколько раз в нем встречается число 1.