1.Название клавиши переключения регистров клавиатуры?-Shift.
2.Н<span>азвание клавиши расположенной рядом с Pause?-</span>Scroll Lock.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Их большое количество. Телефон например, компьютер, электронная книга, карта памяти.
У Ани синяя по условию.
У Вари не белая (и не синяя, так как она у Ани). Значит, красная.
Остаётся одна белая флешка. Она у последней девочки: у Маши.
Program massiv;
var a: array[1..10] of integer;
b,i,p: integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
writeln ('Введите число');
readln (b);
for i:=1 to 10 do
begin
if a[i]<b then
p:=p*a[i];
end;
for i:=1 to 10 do
write (a[i],' ');
writeln;
writeln ('Произведение элементов, меньших ',b,', равно ',p);
end.