1.Название клавиши переключения регистров клавиатуры?-Shift.
2.Н<span>азвание клавиши расположенной рядом с Pause?-</span>Scroll Lock.
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
От слова рота к слову полк. рота , ____ , ____ , ____ , ____ , полк. бант , __ , __ , __ , __ , коса море , __ , __ , __ , __ ,
ИРИНА9997 [108]
<span>рота- роза- лоза- поза- пола- полк
бант- бунт- бурт- борт- корт- кора- нора
море- горе- гора- нора- нога- нуга- дуга- душа- суша
миг- маг- май- чай- час- чес- вес- век </span>
var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.