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

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.

Question

Информатика

Исакий

19 декабря, 06:23

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

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.

+4

Ответы (1)

Знаете ответ?

Туся · Answer 1

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

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

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

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