⇢ Паскаль. Что делать? Ошибка - Попытка разыменовать нулевой указатель.
Необходимо создать динамический масив с записями, и этим записям присвоить рандомное значение.
type zap=record
one:word;
two:word;
end;
a=array[1..6] of zap;
b=array[1..6] of word;
var
i:integer;
max,min,maxi,mini:word;
pta:^a;
ptb:^b;
begin
writeln (' one two');
for i:=1 to 6 do
begin
pta^[i].one:=random(20);
write('№,i,' ',pta^[i].one);
pta^[i].two:=random(20);
writeln(' ',pta^[i].two);
end;
writeln();
writeln('Сума полей в каждой записи');
for i:=1 to 6 do
begin
ptb^[i]:=pta^[i].one+pta^[i].two;
write(ptb^[i],' ');
end;
max:=ptb^[1];
max:=1;
for i:=1 to 6 do
if(max
begin
max:=ptb^[i];
maxi:=i;
end;
writeln();
writeln('Запись №',maxi,' имеет наибольшее количество элементов: ',max);
min:=ptb^[1];
mini:=1;
for i:=1 to 6 do
if(min>ptb^[i]) then
begin
min:=ptb^[i];
mini:=i;
end;
writeln('Запис №',mini,' имеет наименьшое количество элементов: ',min);
end.
Проблему решил) Забыл инициализировать
