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;)