1. caps Lock;
3. del (delete);
4. backspace
7. pause
9. ctrl
10. tab
12 <span>Scroll Lock</span>
13 esc
14 enter
16 PgDn (Page Down)
1-А
2-Б
3-В
4-А
5-Б
6-А
7-А
8-Б
9-В
10-Б
11-Б
12-Б
13-В
14-Б
15-А
<span>КОИ-8 имеет 8 битный вес символа. 160/8=20 символов</span>
Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
