Необходимо отладить программу (Практическая 2 курс программирование)

@D3xxxan · Регистрация: 26.03.2020

Author24 — интернет-сервис помощи студентам

Требуется создать вещественный массив из 10 000 чисел и заполнить его случайными числами в диапазоне от 0 до 1. Вычислить среднее значение массива. Очистить динамическую память. Создать целый массив размером 10 000, заполнить его случайными целыми числами в диапазоне от -100 до 100 и вычислить его среднее значение.
---------------------------------------------

Pascal

Const NMax = 10000;
Type Diapazon = 1..NMax;
MasInt = Array[Diapazon] Of Integer;
MasReal = Array[Diapazon] Of Real;
Var Plint : ^MasInt;
PReal : ^MasReal;
I, Midint : longInt;
MidReal : Real;
Begin
MidReal := 0; Midint := 0;
Randomize;
NEW(PReal);
{Выделение памяти под вещественный массив}
{Вычисление и суммирование массива}
For I := 1 to Nmax Do
Begin 
РRеаl^[I] := Random;
MidReal := MidReal + PReal^[I]
End;
DISPOSE(PReal);{Удаление вещественного массива}
NEW(Pint); {Выделение памяти под целый массив}
{Вычисление и суммирование целого массива}
For I := 1 to NMax Do
Begin
PInt^[I] := Random(200) - 100;
Midint := Midint + PInt^[I]
End;
{Вывод средних значений}
WriteLn('Среднее целое равно',Midint Div Max);
WriteLn('Среднее вещественное равно:',(MidReal/NMax):10:6)
End.

Добавлено через 1 минуту
6 строка : Указатели на ссылочные типы недопустимы

@Sun Serega · 20.04.2020, 20:39

Переменная типа массива - и так хранит указатель (а точнее ссылку) на сам массив, зачем вам на него свой указатель объявлять?

@Sun Serega 2309 / 1420 / 516 Регистрация: 07.04.2017 Сообщений: 4,723
	20.04.2020, 20:39	2
	Переменная типа массива - и так хранит указатель (а точнее ссылку) на сам массив, зачем вам на него свой указатель объявлять? 0