Нет индексного свойства по умолчанию для типа integer var c: integer; a: array[1..10] of integer; b: array[1..10] of integer; i,k: byte; begin readln(c); write('a[',i,']='); for i: =1 to 10 do begin a[i]: =random(21)-10; write(a[i],' '); end; begin writeln('a[',i,']=',a[i]); readln (a[i]); write('b[',i,']=',b[i]); readln (b[i]); writeln('c[',i,']=',c[i]); readln (c[i]); for i: =1 to 10 do end; begin if (c[i]> a) and (c[i] end; for i: =1 to n do write('кол-во элементов в диапазоне [',a,',',b,']: ',k); end.

пишитеответ    2   14.09.2019 12:40    0