Помогите решить карточку по Икт 1. Правильно ли описан массив А? Если нет, то что надо...

Question

Помогите решить карточку по Икт

1. Правильно ли описан массив А? Если нет, то что надо изменить?

Type odmyarray[1..n+20] Of integer;

Var A : odmyarray;

2. Что получится в результате выполненя программы?

Program Variant3;

Const n=17;

Type myarray=Array[1..n] Of Integer;

Var B : myarray;

i: Byte ; p : Integer;

Begin

B[i] :=-35+Random(121);

If C[i] Mod 10=0 Then p:=p+1;

End;

Writeln(p);

Readln;

End.

Answer 1

1) описание массива должно быть константным, запись n+20 - переменная. Изменить: задать n+20 в виде константы.

 

2) будет куча ошибок

а) i: Byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной C, хотя она используется (If C[i] Mod 10=0 Then p:=p+1;)