Доступ к элементам массива Изменение элементов массива
Смена знаков элементов массива 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;
Нахождение элементов с заданным свойством 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;
Нахождение количества элементов с заданным свойством 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;
Есть ли в массиве элементы с данным свойством? Function Control (m : MyArray; n:integer) : Boolean; Var i : integer; Begin i := 1; while (i 0) do Inc(i); Control := (i<=n); End;
Решение задач Дан одномерный массив. Найдите разность наибольшего и наименьшего чисел в этом массиве. Дан одномерный массив. Подсчитайте, сколько раз встречается в этой таблице максимальное по величине число. Дан одномерный целочисленный массив. Составьте программу определения значения наибольшего элемента этого массива. Дан одномерный массив чисел. Подсчитайте, сколько раз в нем встречается число 1.