Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
100 кбайт = 100 * 8 = 800 кбит
800 : 1024 = 0,78125 мбит
0,78125 : 100 = 0,0078125 сек
т.д.
1) через горячие клавиши
вынесением кнопок в панель инструментов (word например)
через консоль, если таковая имеется (например vi)
жестами мышки (opera)
голосовыми (opera)
2)delete (del), copy(ctrl+c), cut(shift+del), paste(ctrl+v)
3) open(ctrl+o), save(ctrl+s)
Популярные вопросы