Решить карточку по икт 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;)