Использование динамических массивов
Задача
Десять раз генерировать ряд случайных чисел от 0 до 99.
Каждый ряд также должен иметь произвольную длину.
В каждом ряде следует найти максимальное число.
Сохранить только максимальные числа и вывести их на экран.
Решение
Описание переменных:
arrmax – обычный массив, где будут сохраняться максимальные значения рядов;
row – динамический массив для текущего ряда чисел;
n – длина текущего ряда чисел.
Алгоритм решения задачи:
Переменной j будет играть роль индекса элементов массива arrmax. В конце цикла for, который сделает 10 итераций, j будет увеличиваться на единицу, что будет означать переход к следующей ячейке массива.
Длина очередного ряда чисел случайна. Получив значение n, выделяем память под динамический массив с помощью процедуры getmem.
Заполняем динамический массив случайными числами.
Записываем в очередную ячейку массива arrmax первое значение динамического массива. Если какое-либо последующее значение массива, на который указывает row, будет большеarrmax[j], то производится перезапись значения.
После нахождения максимума память можно освободить (freemem).
Программа на языке Паскаль:
type arrdinamic = array[1..50] of integer; var arrmax: array[1..10] of integer; row: ^arrdinamic; n, i, j, k: integer; begin randomize; j := 1; for i := 1 to 10 do begin n := random(50) + 1; getmem(row,n*sizeof(integer)); for k := 1 to n do row^[k] := random(100); arrmax[j] := row^[1]; for k := 1 to n do if row^[k] > arrmax[j] then arrmax[j] := row^[k]; freemem(row,n*sizeof(integer)); j := j + 1 end; for i := 1 to 10 do write(arrmax[i], ' '); readln end.
Комментарии
Помогите найти ошибку!
freemem(row,n*sizeof(integer…
А зачем здесь вообще массив…
getmem(row,n*sizeof(integer))
n - количество элементов…
Ответ на getmem(row,n*sizeof(integer)) от Гость (не проверено)
n - количество элементов массива
sizeof(integer) - размер одного элемента
row - ссылка на область памяти, куда записываются данные