Помогите решить карточку по Икт
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.
Ответы
1) описание массива должно быть константным, запись n+20 - переменная. Изменить: задать n+20 в виде константы.
2) будет куча ошибок
а) i: Byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)
б) нет декларации переменной C, хотя она используется (If C[i] Mod 10=0 Then p:=p+1;)