Нет индексного свойства по умолчанию для типа Записи

@Relo · Регистрация: 08.10.2020

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

Доброго времени суток, собственно проблема в чем. Небольшая программа с вводом фамилии студента и его оценок, с использование процедуры. Выводит ошибку "Нет индексного свойства по умолчанию для типа prak", я так полагаю, что проблема в описании в самой процедуре, но не понимаю, что конкретно исправлять. Подскажите пожалуйста...

Pascal

program prak2;
type prak=record
   fam: string;
   o1,o2,o3,o4,o5: word;
         end;
var n,j:byte;
     st: array [1..100] of prak;
    
procedure vvod(var st:prak; n:byte);
          var j:byte;
begin
for j:=1 to n do
     begin
       write('Введите фамилию ',j,' студента: '); readln(st[j].fam);
       writeln('Введите 5 оценок студента: ');
       write('1 оценка '); readln(st[j].o1);
       write('2 оценка '); readln(st[j].o2);
       write('3 оценка '); readln(st[j].o3);
       write('4 оценка '); readln(st[j].o4);
       write('5 оценка '); readln(st[j].o5);
       writeln('--------------------------------------------'); 
     end;
end;
begin
   write('введите кол-во студентов = ');
   readln(n); writeln;
   vvod(st,n);
end.

UPD: Ошибка в 14 строчке

@Puporev · 04.02.2021, 10:57

Попробуйте написать

Pascal

1	fam: string[20];

@Relo · 04.02.2021, 10:59 **[ТС]**

Ничего не поменялось..

@Puporev · 04.02.2021, 11:02

Это нужно, но ошибка в другом.
Нужно объявить тип массива

Pascal

type prak=record
          fam: string[20];
          o1,o2,o3,o4,o5: word;
          end;
     mas=array [1..100] of prak;
var n,j:byte;
     st: mas;
 
procedure vvod(var st:mas; n:byte);
          var j:byte;

@Relo 0 / 0 / 0 Регистрация: 08.10.2020 Сообщений: 11
	04.02.2021, 10:59 [ТС]	3
	Ничего не поменялось.. 0

	04.02.2021, 11:02

Опции темы

Нет индексного свойства по умолчанию для типа Записи

Решение