var a:array[1..2,1..30] of integer;
i,j:integer;
Begin
for i:= 1 to 30 do begin
writeln('Введите номер ученика:');
read(a[1,i]);
writeln('Введите оценку:');
read(a[2,i]);
end;
for i:= 1 to 10 do begin
writeln(i:2,' - ');
for j:= 1 to 30
if a[1,j]=i then
write(a[2,i],' ');
end;
readkey;
End.
Тач нир или тачскрин а) Позиционное устройство ввода
Program consoles;var n, i, sum, count, reads: integer;beginreadln(n);for i := 1 to n do begin readln(sum); if(sum <= 3) then count := count + sum; end;readln(reads);if(reads = 1) then writeln(count);end.
1.
<span>Нажать ctrl+H и в строчке "что" написать )
а в строчне "Заменить на" )_ - _это пробел
или скобка это ", тогда этот символ</span>
2.
Грамматические и Орфографические, Пунктуация.
<span>Нажмите кнопку Microsoft Office, а затем выберите
элемент Параметры Word.
Щелкните пункт Правописание.
Нажмите кнопку Параметры автозамены.
На вкладке Автозамена установите флажок Автоматически исправлять
орфографические ошибки.</span>
4.
<span>Чтобы быстро убрать все лишние пробелы и
табуляторы в началах и концах строк, выделите весь текст, задайте
выравнивание по центру – пробелы будут удалены. После этого задайте нужное
выравнивание, например по ширине. Выберите меню Правка | Заменить… В
поле «Найти» введите пробел (нажмите на пробел). Нажмите кнопку «Больше», чтобы
раскрыть диалог. Нажмите кнопку «Специальный» и появившемся меню выберите Знак
абзаца. В поле «Найти» добавится текст «^p».
В поле «Заменить на» вставьте один знак абзаца «^p».
Нажмите кнопку «Заменить всё»</span>
Как-то так наверное,не уверена
