Клавиши клавиатуры, в зависимости от их назначения и расположения, можно поделить на группы: -Алфавитно-цифровые; -Функциональные; -Блок дополнительных клавиш (цифровая панель); -Клавиши управления курсором; -Служебные (клавиши управления). -Алфавитно-цифровые клавиши. Назначение: ввод букв, цифр, знаков препинания и других специальных знаков. В эту категорию также относится клавиша SPACE (ПРОБЕЛ). -Функциональные клавиши Сюда относят клавиши F1-F12. За данными клавишами нет постоянных закрепленных функций (исключением является только клавиша F1, которая используется для получения справки). Эти клавиши, как правило, программируются уже пользователем для каждой программы отдельно. -Блок дополнительных клавиш (цифровая панель) Повторяют действие цифровых и некоторых знаковых клавиш основной панели Даная панель может использоваться в двух режимах: * Ввода цифр; * Управления курсором. Переключения режимов осуществляется клавишей NUM LOCK -Клавиши управления курсором Курсор — экранный указатель, который показывает место ввода следующего символа (для текста) или текущую позицию (точку), к которой будет применяться действие мыши. Клавиши со стрелками служат для перемещения курсора на одну позицию по экрану монитора в соответствии с направлением. Клавиши PAGEUP и PAGEDOWN3 переводят курсор на одну страницу вверх и вниз соответственно, а клавиши HOME и END переводят курсор в начало и конец текущей строки. Клавиша INSERT переключает режима ввода данных: вставка и замена ( в режиме вставки новые знаки вводятся без замены существующих символов, а в режиме замены — заменяют). Клавиша DELETE удаляет знаки, которые находятся справа от текущего положения курсора, а клавиша BACKSPACE удаляет знаки, которые находятся слева от текущего положения курсора.
Var a: array[1..100] of integer; n, i: byte; sum, p: integer; begin writeln('1. Случайным образом'); Randomize; write('Введите размер массива: '); readln(n); sum:=0; p:=1; for i:=1 to n do begin a[i]:=Random(101)-50; write(a[i]:4); sum:=sum+a[i]; p:=p*a[i]; end; writeln; writeln('Сумма = ', sum:5); writeln('Произведение = ', p:5); sum:=0; p:=1; writeln(''); writeln('2. С клавиатуры'); for i:=1 to n do begin write('Элемент ', i, ' = '); readln(a[i]); sum:=sum+a[i]; p:=p*a[i]; end; writeln('Сумма = ', sum:5); writeln('Произведение = ', p:5); end.
a: array[1..100] of integer;
n, i: byte;
sum, p: integer;
begin
writeln('1. Случайным образом');
Randomize;
write('Введите размер массива: ');
readln(n);
sum:=0; p:=1;
for i:=1 to n do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
sum:=sum+a[i];
p:=p*a[i];
end;
writeln;
writeln('Сумма = ', sum:5);
writeln('Произведение = ', p:5);
sum:=0; p:=1;
writeln('');
writeln('2. С клавиатуры');
for i:=1 to n do
begin
write('Элемент ', i, ' = ');
readln(a[i]);
sum:=sum+a[i];
p:=p*a[i];
end;
writeln('Сумма = ', sum:5);
writeln('Произведение = ', p:5);
end.